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1 i os { IDENT ('V04-000'), 


¢ PARAAAAAAALALALALL AA EALELLALALEL ELE LE RESALE EERE ASE ELSA SALES TEER EEE EE REE EES 
ee ® 

5 #* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. ‘ 
tt ALL RIGHTS RESERVED. * 
® 

#* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
se COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ee TRANSFERRED. 2 
* 

® 

® 

® 

2 

® 

® 

® 

& 

® 


ee 
we THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT IT LE T 


E NOTI 
ee BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMEN 
** CORPORATION. 


** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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ABSTRACT: This facility is used to create, modify, and optimize 
FDL specification files. 


ENVIRONMENT : NATIVE/USER MODE 


Ssssssssssssss 
SSGFAFSUNLSS 


AUTHOR: Ken F. Henderson Jr. 
H CREATION DATE: 27-Mar-1981 
bods MODIFIED BY: 
0028 v03-012 RRBOOOS Rowland R. Bradley 16 Jan 1984 
4 Fix EDFSRESET_SCROLL to avoid overyritin the output 
5 generated by a command procedure with SET VERIFY set. 
; v03-011 RRBOO04 Rowland R. Bradley 13 Jan 1984 
8 Fix MAX_FACTOR to prevent division by zero. 
50 v03-010 KFHOO10 Ken Henderson 10 Sep 1983 
3) Support for named UICs. 
3§ v03-009 KFHOO09 Ken Henderson 8 Aug 1983 
2¢ Changes for seperate compilation. 
2$ v03-008 KFHOO08 Ken Henderson 28 Jul 1983 
005 Added CALC_REC_OVERHEAD and CALC_BUC_OVERHEAD 


FACILITY: VAX/VMS EDF (EDIT/FDL) UTILITY 
| 
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Source Listing 


0007 n Hen 
Fix NUMBER INPUT to set “ied 7 VALUE 
and INPUT_RUMBER also. at vv. 

SCAN DEFINITION routine t 


uw 


and CURRENT_GT_TEST rout 
reverse precedence of SECONDARY 
9 and SEC 
A = and make SEG_TYPE SECNUM = 7. 
Lk v03-006 pe Ken acetees 
v hdded. a ort for JOURNA 
75 routines. 


1g v03-005 KFHOO0S en Henderson 

ooze Added XABSC_BN8 a XABSC_IN8 to 
79 EDFSLINE_PARSED. And changed the 

80 reference of FDOLSTYPE to OLSSTYPE. 


1 
¢ v03-004 KFH Ken Henderson 

Hodi tied EDF SRESET_SCROLL to. say 
¢ Created:*’ in reverse video. 


v03-003 KFHOO03 
Modified reference to some variables 
to fit with database reorganization. 
Also, modified call to ASK_RETURN. 


Ken Henderson 


eeeesreees 


sg 


v03-002 KFHOO02 Ken Henderson 
O236 Modified os gil IN_ORDER to not 
009 start at DEF D Tf it was already 
oops at the S onnadl go Bes 
v03-001 KFHO001 n Henderson 
0097 Modi fied EDFSRESET. SCROLL to not 
8 reset the scrolling region unless 


it has been set. 


oo 
— os 
2s 
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38 to centra alize the arithmetic 
Fixed EDFSLINE_PARSED to not “invert the 
: order of block comment Lines. 
v03-007 KF 


FATAL araneter. Rodi ty CURRENT. rr TEST 


make NABLED. 
Added FACTOR, DELETE PRIMARY SECTION 
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H 3 ENVIRONMENT ('LIBS:EDFUTIL"), 
i 5 INHERIT ( 
1 "SYSSLIBRARY: STARLET’, 
108 sShat ToS FL FDL PARDEE, 
1 ‘LIB 
110 LIB$: EOFS vere: , 
11 TBS EDF CONST: , 
11 *LIBS:EDF TYPE’, 
11 "LIBS: EDFVAR 
114 "LIBS: EDFEXTERN’, 
115 "LIBS: EDF CHF 
gif 
1 ) 
0118 
0119 MODULE EDFUTIL (INPUT,OUTPUT); 


) 
| 
q 
¢ 
! 
! 
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{ +4 
NUM_LEN == Calculate the field width of an integer. 


This routine will return the number of characters an integer will take up 
when printed. 


CALLING SEQUENCE: 
field-width := NUM_LEN (NUMBER); 
INPUT PARAMETERS: 
NUMBER 

IMPLICIT INPUTS: 
none 

OUTPUT PARAMETERS: 
none 

IMPLICIT OUTPUTS: 
none 

ROUTINES CALLED: 
none 

ROUTINE VALUE: 

The field width 
SIGNALS: 

none 

SIDE EFFECTS: 

none 

e- } 
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CASYNCHRONOUS) FUNCTION NUM_LEN ( 


UMBER : INTEGER 
) : INTEGER; 


BEGIN 
If NUMBER = 0 THEN 


Just plug a width of 1 if the number is 0. 
NUM_LEN := 1 

ELSE 

BEGIN 


{ + 
Set the function value according to the magnitude of the number. 


TEST_VAR := 1000000000; 
TEST“LEN := 10; 
REPEAT 
IF ABS (NUMBER) < TEST_VAR THEN 
TEST_LEN := TEST_LEN = 1; 
TEST_VAR := TEST_VAR DIV 10; 


UNTIL ABS (NUMBER) >= TEST_VAR; 


{ + 
Allow for a - sign if negative. 
IF NUMBER < 0 THEN 
TEST_LEN := TEST_LEN + 1; 


OT ewe Dee st Sarr. 
SBSVS AE AVL OSBVS AE AO LOOTED OOOO Doe 


pew ww ww nw fw nw fn fn fa fa lolol aloo lolololo lolol lalolololealolelalololololololo) 


SOooooooeco“e]&o: 
ror 


{ + 
1 my stuff the function value. 
13 NUM_LEN := TEST_LEN; 
16 END; { IF FALSE NUMBER = 0 } 
1 


END; { NUM_LEN } 
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MAX_FACTOR == Produce a number that's a multiple of another. 


{ +4 


This function will return the number that's a multiple of one of the 
arguments, as long as it doesn't go over a maximum. 


CALLING SEQUENCE: 
NEWVALUE := MAX_FACTOR (BASE,VALUE,MAX); 
INPUT PARAMETERS: 
BASE 

a aaa 

IMPLICIT INPUTS: 
none 

OUTPUT PARAMETERS: 
none 

IMPLICIT OUTPUTS: 
none 

ROUTINES CALLED: 
none 

ROUTINE VALUE: 


The number (greater or equal to VALUE) that's a multiple of BASE 
unless that number would be greater than MAX - in which case it is MAX. 


SIGNALS: 

none 

SIDE EFFECTS: 
none 

o- ) 
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FUNCTION MAX_FACTOR ( 
BAS : INTEGER; 
VALUE : INTEGER; 
AX : INTEGER 
) : INTEGER; 
VAR 
TEMP : INTEGER; 
BEGIN 


IF (VALUE < BASE) OR (BASE = 0) THEN 
TEMP := BASE 


QEREAN LESSEE ALAN ASSN AFIS Dew 


8 ELSE 

0 

BEGIN 

TEMP := VALUE BIV BASE; 
° IF ((VALUE MOD BASE) <> 0) THEN 
! TEMP := TEMP + 1; 
. TEMP := TEMP * BASE; 

03 END; 

3 If TEMP > MAX THEN 

0999 TEMP := MAX; 

0299 

0300 MAX_FACTOR := TEMP; 

0301 

0302 END;  { MAX_FACTOR } 


15 
eonans iene aHe O97 
{ ++ 
CALC_REC_OVERHEAD <= Do the arithmetic to figure out overheads. 
This function will return the RELORD overhead for a given setup. 
CALLING SEQUENCE: 
RECORD_OVERHEAD := CALC_REC_OVERHEAD (INDEX_LEVEL); 
INPUT PARAMETERS: 
INDEX _LEVEL 
IMPLICIT INPUTS: 
none 
OUTPUT PARAMETERS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINES CALLED: 
none 
ROUTINE VALUE: 
The overhead, according to the RMS structure constants. 
SIGNALS: 
none 
SIDE EFFECTS: 
none 
-- } 
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{ + 

SIDR BUCKET 

IF (CIDATACEDFSK_ACTIVE_KEY] <> 0) AND (INDEX_LEVEL = 0) THEN 
RECORD_OVERHEAD := RECORD_OVERHEAD + IRCS$C_SDROVHSZ3 + IRCS$C_RRVOVHSZ3; 


ooo 


0 FUNCTION CALC_REC_OVERHEAD ( | 

8 INDEX LEVEL : INTEGER | 

INTEGER; 9 

1 | 

¢ VAR 0 

? RECORD_OVERHEAD : INTEGER; 0 

2? BEGIN o 

37 RECORD_OVERHEAD := 0; 0 
59 
0 
1 


eee 


{ + 
ACCOUNT FOR KEY COMPRESSION 


IF ( 
(BDATACEDFSK_KEY_COMP_WANTED] AND (INDEX_LEVEL = 0)) 
(BDATACEDFSK_1DX_COMP_WANTED] AND (INDEX_LEVEL <> 0)) 


RECORD_OVERHEAD := RECORD_OVERHEAD + IRCSC_KEYCMPOVH; 


{ + 
INDEX BUCKETS 
IF INDEX_LEVEL <> 0 THEN 
RECORD_OVERHEAD := RECORD_OVERHEAD + IRCSC_MAXVBNSZ; 


WA AIAIINI 
BERS IIIS SES 


{ + 
PRIMARY KEY DATA BUCKETS 
IF CIDATACEDFSK_ACTIVE_KEY] = 0) AND (CINDEX_LEVEL = 0) THEN 


Se 
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388 
389 BEGIN 
390 
331 IF VARIABLE_RECORDS THEN | 
es RECORD_OVERHEAD := RECORD_OVERHEAD + IRC$C_VAROVHSZ3 | 
395 ELSE 
397 RECORD_OVERHEAD := RECORD_OVERHEAD + IRCSC_FIXOVHSZ3; 
0399 IF BDATACEDF$K_REC_COMP_WANTED] THEN | 
01 RECORD_OVERHEAD := RECORD_OVERHEAD + IRCS$C_DATCMPOVH; 
| 
08 IF BDATACEDFSK_KEY_COMP_WANTED] OR BDATACEDFSK_REC_COMP_WANTED] THEN | 
| 


9 15 | 
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05 RECORD_OVERHEAD —_:=_RECORD_OVERHEAD + IDATACEDFSK_KEY_SIZEJ; | 
i <i 
09 CALC_REC_OVERHEAD = RECORD_OVERHEAD; 

0411 END;  { CALC_REC_OVERHEAD } 
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{ +4 


- 
Ww 


CALC_BUC_OVERHEAD == Do the arithmetic to figure out overheads. 
This function will return the BUCKET overhead for a given setup. 
CALLING SEQUENCE: 

BUCKET_OVERHEAD := CALC_BUC_OVERHEAD (INDEX_LEVEL); 

INPUT PARAMETERS: 

INDEX_LEVEL 

IMPLICIT INPUTS: 


— >) a 


none 
OUTPUT PARAMETERS: 


—OVOVONOUNE WN" OOONOUS 


FRRLLLLLELLELEREKLER 


IMPLICIT OUTPUTS: 
none 

ROUTINES CALLED: 
none 

ROUTINE VALUE: 
The overhead, according to the RMS structure constants. 
SIGNALS: 

none 

SIDE EFFECTS: 
none 

ee } 
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FUNCTION CALC_BUC sant 


mn 
IW es 


XALEVEL VEL : INTEGER 


2 INTEGER; 
61 BEGIN 
es IF INDEX_LEVEL = 0 THEN 
65 CALC_BUC_OVERHEAD := BKTSC_OVERHDSZ + BKTSC_DATBKTOVH 
e ELSE 
es) CALC_BUC_OVERHEAD := BKTSC_OVERHDSZ + BKTSC_ENDOVHD; 
0471 END;  { CALC_BUC_OVERHEAD } 
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{ +4 | 
EDFSRESET_SCROLL == Reset an ANSI terminal's scroll region. 
ce, foes will put the Serene region back to full screen. 
It is @ Global Foutine, which is called by the exit handler as well. 
CALLING SEQUENCE: 
EDFSRESET_SCROLL; 
INPUT PARAMETERS: 
none 


IMPLICIT INPUTS: 


~ 
SESENSSPAR ES see 


LINE _ONE 

LINES_PER_PAGE 

OUTPUT PARAMETERS: 

none 

IMPLICIT OUTPUTS: 

SYSSOUTPUT: = the scroll region is reset, and possibly graphics mode reset 
ROUTINES CALLED: 


BISAEAN 


SRERERERE 


5 

5 
eB LIBSSET_SCROLL 
8208 ROUTINE VALUE: 

50 

508 none 

509 

510 SIGNALS: 

511 

21¢ none 

51 

514 SIDE EFFECTS: 

515 

218 none 

51 

518 -- } 
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CASYNCHRONOUS ,GLOBAL] PROCEDURE EDFSRESET_SCROLL; 
BEGIN 
IF NOT AUTO_TUNE THEN 
BEGIN 
{ + 
Clear graphics mode if this is a Regis device. 
IF REGIS THEN 
LIBSPUT_LINE (OUTLINE ONE_CHFFLAGS): 
END; 
{ + 
Now make the scroll region from top to bottom - if it was ever set. 
IF SCROLLING_SET THEN 
LIBSSET_SCROLL (LINE_ONE,LINES_PER_PAGE) ; 
END; { IF NOT AUTO_TUNE } 


{ + 
~% amend that the file has been created. 


IF ¢ 
(FILE CREATED) 


(RES_OUTPUT_F ILENAME_DESC.DSCS$W_LENGTH > 0) 
) THEN 
BEGIN 
CHF FLAGS := SCRSM_REVERSE; 
WRITEV (OUT_LINE, CRLF 
RES_OUTPUT_F ILENAME DESC DSCSA_POINTER®:RES_OUTPUT_FILENAME_DESC.DSCSU_LENGTH, 
* *, LINES SHOWN: NUM_LEN(LINES SHOWN) ," Lines’); 
LIGSPUT_LINE~ (OUT_LINE ONE, CHFFLAGS) ; 
END; 


| 
BEGIN 
CHFFLAGS := 0; 
WRITEV COUT_LINE,**(27)*\' 
END; { EDFSRESET_SCROLL } | 
| 
} 


—————_—__——_—_—_ 
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{ ++ 


CLEAR =~ Clear a designated area of the screen. 


This routine clears a specific area on the screen and leaves the cursor there. 
It bypasses screwing up non-CRT terminals. 
| 


i | 


CONAN EWN 


CALLING SEQUENCE: 


FUSS 


579 
a CLEAR (DESTINATION); 
38 INPUT PARAMETERS: 
2 2 DESTINATION 
B28 IMPLICIT INPUTS: 
588 PROMPT LINE 
038 LINE_ONE 
bean OUTPUT PARAMETERS 
059¢ ; 
059 none 
0594 
0595 IMPLICIT OUTPUTS: 
0596 
4424 SYSSOUTPUT: 
0599 ROUTINES CALLED: 


LIBSERASE_PAGE 
LIBSERASE_LINE 


ROUTINE VALUE: 
none 
SIGNALS: 


SasEEe8 


3 


SIDE EFFECTS: 
The selected Lines on the screen are cleared (unless hardcopy). 
-- } 


SESEE 
tt ot 
MWEWN—O 
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PROCEDURE CLEAR ( 
+ mannan : INTEGER 


—— 2 


7 

; BEGIN 

5 C+ 
Og ¢ “| this stuff affects only video terminals. 

IF ¢ 

5 (VIDEO_TERMINAL) 

§ (NOT AUTO_TUNE) 

: ) THEN 
be § BEGIN 
be : CASE DESTINATION OF 
+9 SCREEN : 
+9 : BEGIN 
0640 { + 
0641 The fol Loving sequence of junk to the screen 
Rog is overkilt to make sure the titles don't 
064 jump around. (interaction of Pascal 1/0 and 
Sees screen package 1/0...) 
Bees IF REGIS THEN 
aeee WRITELN (°'(27)"Pp;S(E)3"°(27)'"\"); 
0630 LIBSERASE_PAGE (LINE_ONE,COL_ONE); 
0651 WRITELN (* '); 
0652 LIBSSET_CURSOR (LINE_ONE,COL_ONE); 
bees END; { SCREEN } 
0626 LOWER_AREA : 
+34 BEGIN 

IF REGIS THEN 
BEGIN 


WRITELN ( 
**(27) *PpPL27, 320); v(w(10,S1,€,S0,479)))0+7673;"(27)'\"); 
LIBSSET_CURSOR (PROMPT_LINE,COL_ONE); 
END 
ELSE 
! 


SSeSeseseRetes 


LIBSERASE_PAGE (LOWER_LINE,COL_ONE); 


NS 
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END; 
IF FULL PROMPT : IF FULL_PROMPT OR TEMP_FULL_PROMPT THEN 
BEGIN 
IF TEMP_FULL_PROMPT THEN 
LIBSWAIT (1.3); 
{ + 
The following sequence of pn te to the screen 
is overkill to make sure the titles don't 
jump around. (interaction of Pascal I/0 and 
etreen package 1/0...) 
IF REGIS THEN 
WRITELN (°'(27)'Pp;S(E);'(27)"\"); 
LIBSERASE PAGE (LINE_ONE ,COL_ONE); 
WRITELN (* ‘); 
LIBSSET _CURSOR (LINE_ONE ,COL_ONE); 
END; { IF_FULL_PROMPT } 
PAUSE : QUERY (EDFSK_RETURN); 
OTHERWISE 


END; 


{ NULL-STATMENT } ; 
{ CASE } 
{ IF VIDEO_TERMINAL AND NOT AUTO_TUNE } 


{ CLEAR } 


scal 4 4-277 
ASTER: e 
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1a { ++ 
15 
‘a CVT_QUAD_DESC == Routine to convert a quadword to a descriptor. 
ia This routine will take 2 longword arguments and stuff them into a descriptor. 
OF : CALLING SEQUENCE: 
4 ¢ DESCRIPTOR_VAR := CVT_QUAD_DESC (LONG1,LONG2); 
y ¢ INPUT PARAMETERS: 
7 LONG! 
f ; LONG2 
8 9 IMPLICIT INPUTS: 
0731 none 
07 ¢ 
4 OUTPUT PARAMETERS: 
34 5 none 
44 7 IMPLICIT OUTPUTS: 
0739 none 
0740 : 
0741 ROUTINES CALLED: 
Bree 
074 none 
0744 
0745 ROUTINE VALUE: 
0746 
0747 DESCRIPTOR_VAR 
0748 
0749 SIGNALS: 
0750 
0751 none 
Ores 
B72 SIDE EFFECTS: 
754 
Ore none 
726 
075 -- } 
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128 CASYNCHRONOUS) FUNCTION CVT_QUAD_DESC (LONG1,LONG2 : LONG) : DESCRIPTOR; 
43! BEGIN 
o WITH QUAD_DESC DO 
19? BEGIN 
76 { + 
res Soject the quadword type variant and stuff it. 
770 QWHICH := QWORD; 
7 TWOLONG.L1 := LONGI; 
ak TWOLONG.L2 := LONG2; 
0774 { + 
a Now select the descriptor type variant and get it. 
r78 QWHICH := DWORD; 
778 CVT_QUAD_DESC := DSC; 
779 
8” : END; 
‘ 
0782 END; { CVT_QUAD_DESC } 


15 ee 
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785 di 
i SCAN DEFINITION == Search for area and key primaries in the current definition 
and Tog them. 
of CALLING SEQUENCE: 
73 SCAN_DEFINITION (FATAL); 
7 INPUT PARAMETERS: 
794 
5 5 FATAL 
79 IMPLICIT INPUTS: 
$798 
0799 DEF CURRENT 
OBot OUTPUT PARAMETERS 
080¢ 
080 none 
0804 
0805 IMPLICIT OUTPUTS: 
0806 
0807 LOW_AREA 
0808 HIGR_AREA 
0809 LOW _REY 
0810 HIGA_KEY 
0811 FOUND _ 
0812 FOUND_AREA 
081 FOUND_KEY 
0814 
0815 ROUTINES CALLED: 
0816 
tA none 
818 
0819 ROUTINE VALUE: 
0820 
oe ; none 
08. SIGNALS: 
0824 " 
0825 none 
0826 
oe i SIDE EFFECTS: 
4 9 none 
0831 oo ) 
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3 3 PROCEDURE SCAN_DEFINITION (FATAL : BOOLEAN); 
: 5 BEGIN 
8 { + 
4 3 Find out the range of existing keys (assume contiguous). 
0840 DEF CURRENT = DEF _HEAD 
pee) FO = FALSE; 
Hk FOUND_AREA = FALSE; 
084 toy D-KEY = FALSE; 
oeee AREA = 0: 
5 hich. AREA = 0; 
0846 LOW REY = 8: 
0847 HIGA_KEY = 0; 
0848 
634 REPEAT 
1 WITH DEF _CURRENT* DO 
BEGIN 


IF 
COpiect. TYPE = PRI) 
on = KEY) 


BEGIN 
IF PRINUM = 0 THEN 
FOUND_0 := TRUE; 
FOUND_KEY := TRUE; 
IF PRINUM < LOW_KEY THEN 
LOW_KEY := PRINUM; 
IF PRINUM > HIGH_KEY THEN 
HIGH_KEY := PRINUM; 
END; 


IF ¢ 

SOBsECT TW = PRI) 
(PRIMARY = AREA) 

) THEN 


BEGIN 
FOUND_AREA := TRUE; 
IF PRINUM < LOW_AREA THEN 
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31 LOW_AREA := PRINUM; 
3? IF PRINUM > HIGH_AREA THEN 
36 HIGH_AREA  := PRINUM; 
89 END; 

0898 

0899 END; { WITH DEF _CURRENT* DO } 

1 DEF CURRENT := DEF_CURRENT*.FORE; 

0308 UNTIL DEF_CURRENT = NIL; 

0905 IF ¢ 

Bone ((FATAL) OR (HIGH_KEY <> 0)) 

0908 (NOT FOUND_0) 

3444 ) THEN 

b914 BEGIN 

bag 

091 WRITELN (SHIFT, ANSI _REVERSE, 

0914 There i no Primary Key in the Current Definition. ', 

0915 ANSI_RESET) 

0916 

9917 IF ane. sue THEN 

3484 LIBSSTOP (EDF$_INSFANL,0,0,0) 

093 ELSE 

0938 BEGIN 

0925 LIBSWAIT (3.0); 

o966 LIBSSIGNAL (EDFS_ CTRLZ,0,0,0); 

$958 END; 

6950 

09 END; 

0931 

0932 END; { SCAN_DEFINITION } 
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Source Listing 
{ +4 
PARSE_INPUT == Routine to parse input string. 
This routine will look at the chosen LIBSTPARSE table. 
CALLING SEQUENCE: 
PARSE_INPUT (KEY_TABLE_PTR,STATE_TABLE_PTR,DEFAULT_OK ,DEFAULT_VALUE) ; 
INPUT PARAMETERS: 


KEY_TABLE_PTR 
STATE_TABCE_PTR 


IMPLICIT INPUTS: 
none 

OUTPUT PARAMETERS: 
none 

IMPLICIT OUTPUTS: 
INPUT_VALUE 
ROUTINES CALLED: 
none 

ROUTINE VALUE: 
none 

SIGNALS: 

none 

SIDE EFFECTS: 

none 

--) 
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BEGIN 


SUS 


79 PROCEDURE PARSE_INPUT ( 

9 KEY_ TABLE INTEGER; 
1 STATE_TABLE INTEGER; 
¢ DEF AUCT_OK BOOLEAN; 

Bs DEFAULT VALUE INTEGER 
5 ° 
09 
09 


Co: 
oO 


{ + 
Get the input from the terminal. 
INPUT_DESC := NULL_STRING; 


S333 


3 


{ + 
If auto answers are enabled and this question has a default - use it. 


0994 

0995 a ; 

$999 

0998 (TAKE_DEFAULTS) 

1900 (IDATACEDFSK_RESPONSES) = EDF $K_AUTO) 
100¢ (DEFAULT, OK) 

1004 (NOT (QTAB_OFFSET = EDFSK_RETURN)) 
1006 OR 

1007 (AUTO_ TUNE) 

1008 ) THEN 

1009 

1010 BEGIN 

1011 

101 IF NOT AUTO_TUNE THEN 
101 

1014 BEGIN 

1015 

1016 WRITELN (CRLF); 
101 LIBSWAIT (0.7): 
1018 

1019 END; 

1020 

1021 END 

10 2 

10 ELSE 

1024 

1025 BEGIN 

1086 

19 r IF EOF (INPUT) THEN 
1098 BEGIN 

1031 RESET (INPUT); 
103¢ LIBSSIGNAL (EDF$_CTRLZ.0.0.0); 
i END; 

1035 
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10 READLN CINPUT_STRING); 

1 WRITELN (CRLFJ; 

1038 STRSTRIM (INPUT DESC, INPUT_STRING); 

1089 STRSUPCASE (INPOT_DESC,INPOT_DESC): 

1041 END; 

3 

\%6 { + 

1044 f we're journaling our input, save a copy of it to the 
ieee ournal file. 

1947 IF JOURNAL_ENABLED THEN 

4 IF INPUT_DESC.DSCSW_LENGTH > 0 THEN 

1051 WRITELN ( 

1098 JOURNAL_FILE 

1053 INPUT _DESC.DSCSA_POINTER*: INPUT _DESC.DSCSU_LENGTH 
1055 

1238 ELSE 

105 

1058 WRITELN (JOURNAL_FILE); 

1059 

1060 { + 

Hist See if the answer was defaulted, and if it's allowed to be. 
1088 IF INPUT_DESC.DSCS$W_LENGTH = 0 THEN 

199? IF DEFAULT_OK THEN 

Hs 24 INPUT_VALUE := DEFAULT_VALUE 

1069 ELSE 

1070 

1071 BEGIN 

1078 

197? LIBSSIGNAL (EDF$_NODEFAULT,0,0,0); 

1075 END 

ore 

107 ELSE 

1999 BEGIN 

1986 is 

Hi a | if it’s valid and get it’s value. 

1084 PARAM_BLOCK. TPASL_STRINGPTR := INPUT_DESC.DSCSA_POINTER: :UNSIGNED; 
1085 PARAM_BLOCK. TPASL_STRINGCNT := INPUT“DESC.DSCSW_LENGTH; 
1989 ISTATUS := LIBSTPARSE ( 

1088 ARAM_BLOCK, 

1089 STATE TABLE, 

1 KEY_TABLE 

1992 ' 


3 


Pasca 
S 


cal VE see es £295 25 
STER:CEDF .SRCJEDFUTIL.PAS;1 (20) 


esd 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SSZ23333 


BVLZS 


> ue nd — 4 _ 2s 4 dd 4 2d 5 ts 
SER 
oo w 


at 
MSWN—O 


END; 


Source Listing iB-ge 


INPUT _VALUE := PARAM BLOC 
INPUT_NUMBER := PARAM =BLOC 


K. 
K.TP 
{ + 
Even Istatus (low bit clear) means failure. 
IF NOT ODD CISTATUS) THEN 
BEGIN 
IF PARAM_BLOCK.TPASV_AMBIG THEN 
LIBSSIGNAL (EDF$_AMBIG,0,0,0) 
ELSE 
LIBSSIGNAL (EDF$_BADSYNTAX,0,0,0); 
END; 
{ IF NOT INPUT_DESC.DSCSW_LENGTH = 0 } 
{ PARSE_INPUT } 


Sep-1 
Sep-1 


TPASL_PARAM: :LONG; 
ASL=NUMBER: :LONG; 


Be 19:88:35 


7 
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{ ++ 


—— 


NUMBER_INPUT == Routine to get a number from the input string. 
This routine will return the integer typed. 
CALLING SEQUENCE: 

NUMBER _INPUT (NUM_VALUE ,DEFAULT_OK ,DEFAULT_VALUE) ; 
INPUT PARAMETERS: 

none 

IMPLICIT INPUTS: 

none 

OUTPUT PARAMETERS: 

NUM_VALUE 

IMPLICIT OUTPUTS: 

none 

ROUTINES CALLED: 

none 

ROUTINE VALUE: 

none 

SIGNALS: 

none 

SIDE EFFECTS: 

none 

ee } 
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PROCEDURE NUMBER_INPUT ( 


re, ~ Value 


FAUL 
FA ULI VALUE 


VA : INTEGER; 
DEFA : BOOLEAN; 
hae : INTEGER 
BEGIN 


{ + 
Get the input from the terminal. 
INPUT_DESC := NULL_STRING; 


Ss aate answers are enabled and this question has a default - use it. 
IF ( 

(TAKE DEFAULTS) 

CIDATACEDFSK_RESPONSES] = EDFS$K_AUTO) 

COEF MAT OK) 


OR 
(AUTO. TUNE) 
) THER 


BEGIN 
IF NOT AUTO_TUNE THEN 
BEGIN 


WRITELN (CRLF); 
LIBSWAIT (0.7); 


fA) nd od ed 
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END 

ELSE 

BEGIN 
IF EOF (INPUT) THEN 
BEGIN 


): 
EDFS$_CTRLZ,0,0,0); 
END; 

READLN (INPUT_STRING); 


WRITELN (CRLFD; 
STRSTRIM m CINPUT _DESC, INPUT_STRING); 
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STRSUPCASE (INPUT_DESC, INPUT_DESC); 
PARAM_BLOCK. TPASL-TOKENPTR :=°] 
PARAM~BLOCK. TPASL~TOKENCNT := INPU 


END; 


a 


A_POINTER: : UNSIGNED; 


W_LENGTH; 


{ + 
f we're journal ing our input, save a copy of it to the 
ournal file. 


IF JOURNAL ENABLED THEN 
IF INPUT_DESC.DSC$W_LENGTH > 0 THEN 
WRITELN ( 


POPOPIPOPIPIPIPIPIPINIPIPIPYINPIPUNIPYNIPIPIPUPINIPPPony 


0 
8 
9 
ty) 
1 
g JOURNAL. FILE 
¢ INPUT_DESC.DSCSA_POINTER*: INPUT DESC .DSCSW_LENGTH 
38 ELSE 
a4 WRITELN (JOURNAL_FILE); 
41 { + 
4g See if the answer was defaulted, and if it's allowed to be. 
re} IF INPUT_DESC.DSCSW_LENGTH = 0 THEN 
37 IF DEFAULT_OK THEN 
48 NUM_VALUE := DEFAULT_VALUE 
$68 ELSE 
51 
3 BEGIN 
2 LIBSSIGNAL (EDF$_NODEFAULT,0,0,0); 
5 END 
32 ELSE 
59 
BEGIN 


{ + 
Convert it to an integer. 
ISTATUS := OTSSCVT_TI_L (INPUT_DESC,NUM_VALUE); 


{ + 
Even Istatus (low bit clear) means failure. 


SOUR RUN O 


ee ee meh ee ce ee ee ce me cc me ce ce ee ee eee ee a ee ee a ed ed nd ed od ed = 8 


1 IF NOT ODD (ISTATUS) THEN 
Le BEGIN 
7%4 LIBSSIGNAL (EDF$_BADSYNTAX,0,0,0); 
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127 

; f END; 

1 4: END; { IF NOT INPUT_DESC.DSCSW_LENGTH = 0 } 
1280 INPUT_VALUE := NUM_VALUE; 

1 INPUT "NUMBER := NUM~VALUE; 

1 HE END; { NUMBER_INPUT } 
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MAKE SCRATCH == Create a new peice of dynamic memory and init it. 
This routine creates a new Line_object, and inits its various fields. 
CALLING SEQUENCE: 
MAKE SCRATCH; 

INPUT PARAMETERS: 
none 

IMPLICIT INPUTS: 
LINE OBJECT_TEMPLATE 
OUTPUT PARAMETERS: 
DEF SCRATCH 

IMPLICIT OUTPUTS: 
none 

ROUTINES CALLED: 
none 

ROUTINE VALUE: 

none 

SIGNALS: 

none 

SIDE EFFECTS: 

none 

o- } 
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} CASYNCHRONOUS] PROCEDURE MAKE_SCRATCH; 

1 BEGIN 

1339 

1 { + 

1 ¢ Allocate some dynamic memory. 

; NEW (DEF _SCRATCH); 

1 { + 

} 2 Copy over the template. 

: 1 DEF __SCRATCH* := LINE_OBJECT_TEMPLATE; 
1 : END; { MAKE_SCRATCH } 


ROUTINE VALUE: 

True if DEF_CURRENT > TEST, false if not. 
SIGNALS: 

none 

SIDE EFFECTS: 

none 

o= } 
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—_ | 188 
CURRENT _GT_TEST == Compare def_current with test. 135 
This function hes the boolean value of the whether or not DEF_CURRENT is | 135 
greater than TEST Ht: 
CALLING SEQUENCE: | 188 
test-val := CURRENT_GT_TEST (TEST,SCOPE); 188 
INPUT PARAMETERS: 189 
SCOPE 189 
189 

IMPLICIT INPUTS: 133 
DEF _CURRENT | 185 
OUTPUT PARAMETERS: 139 
none 190 
190 

IMPLICIT OUTPUTS: 135 
none 190 
190 

ROUTINES CALLED: 190 
190 

} 


— i - } 
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CASYNCHRONOUS) FUNCTION CURRENT _GT_TEST ( 
TEST : LINE_OBJECT; 
EXACT_COMPARISON : BOOLEAN 
) : BOOLEAN; 


BEGIN 
CURRENT_GT_TEST := FALSE; 


{ + 

Just do a boolean assignment. 
If EXACT_COMPARISON THEN 
BEGIN 


IF 
(PRI _SEQLDEF _CURRENT*.PRIMARY] > PRI_SEQCTEST.PRIMARY]) 
CURRENT_GT_TEST := TRUE; 


IF 

SER 1 SEGLDEF _CURRENT® PRIMARY) = PRI_SEQCTEST. PRIMARY) 
(DEF CURRENT*.PRINUM > TEST.PRINUM) 

THEN 


CURRENT_GT_TEST := TRUE; 


IF 

sent SECEDE _CURRENT™ .PRIRARY = PRI_SEQCTEST.PRIMARY]) 
(DEF _CURRENT*.PRINUM = TEST.PRINUM) 

(DEF _CURRENT*.SECNUM > TEST. SECNUM) 

THEN 


CURRENT_GT_TEST := TRUE; 


(PRI_SEOCDEF _CURRENT*. PRIMARY] = PRI_SEQCTEST.PRIMARY]) 
soe? Pea” PR = TEST.PRINUM) 

+ th tT trianat = TEST.SECNUM) 

a FE mmoscntll cs raemanaae > TEST.SECONDARY) 


CURRENT_GT_TEST := TRUE; 
END 
ELSE 
BEGIN 


i eee 
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IF ¢ 
Preteen ne” geUMRENT” PRERARTS > PRI_SEQCTEST.PRIMARY]) 


CURRENT_GT_TEST := TRUE; 


IF 
pratt SEGLDEF .CURRENT® PRIMARY = PRI_SEQCTEST.PRIMARY]) 
en een > TEST.PRINUM) 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


| 
| 
| 
} 
| 
| 
| 
CURRENT_GT_TEST := TRUE; 

END; | 
END;  { CURRENT_GT_TEST } | 
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“¥Oe~000 Source Listing = 35h= $8¢ 13:38:55 DISKSVMSMASTE ‘f | 19 
“1466 { ++ | 19¢ 
18 CURRENT _LT_TEST == Compare def_current and test. 196 
Bh: This function has the boolean value of the whether or not TEST greater than | 197 
| tah DEF _CURRENT. | H 
1278 CALLING SEQUENCE: | 133 
Net? test-val := CURRENT_LT_TEST (TEST,SCOPE); | 134 
1477 INPUT PARAMETERS: 137 
1475 TEST 138 
He IMPLICIT INPUTS: 198 
Pe DEF _CURRENT 198 
1288 OUTPUT PARAMETERS: Lb: 
12 198 
1¢ 7 none 196 
1489 IMPLICIT OUTPUTS: 133 
1490 199 
1293 ety 195 
1298 ROUTINES CALLED: 133 
1494 13 
re none 198 
1299 ROUTINE VALUE: 13 
1499 True if DEF_CURRENT < TEST, false if not. 3 
1501 SIGNALS: 20¢ 
1208 0c 
133 — se 
1505 SIDE EFFECTS: 30 
1208 oC 
150 none 
1508 
1509 =-- } | 
| 
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1 CASYNCHRONOUS) FUNCTION CURRENT LT_TEST ( 
1 TEST : LINE OBJECT; | 
1 EXACT COMPARISON =: BOOLEAN | 
} ) : BOOLEAN; 

} BEGIN 

! CURRENT_LT_TEST := FALSE; 


{ + 

Just do a boolean assignment. 
If EXACT_COMPARISON THEN 
BEGIN 


CURRENT_LT_TEST := TRUE; 


IF ¢ 
<a! Faas oatenceatllltamactatale < PRI_SEQCTEST.PRIMARY]) | 
| 
IF | 
Set SECLEEL CURRENT" PRERIRTD = PRI_SEQCTEST.PRIMARY]) 


(DEF _CURRENT*.PRINUM < TEST.PRINUM) 
THEN 


OO NONE WN OOOO UE WP ("OOS VF WN $0 OONOVE WN “OO OONOU EW 


5 

5 

5 

5 

5 

< 

é 

5 | 
3 CURRENT_LT_TEST := TRUE; | 
54 IF 

54 (PRI_SEQCDEF_CURRENT*.PRIMARY] = PRI_SEQCTEST.PRIMARY]) | 
54 (DEF _CURRENT*.PRINUM = TEST.PRINUM) 

54 (DEF_CURRENT*.SECNUM < TEST.SECNUM) | 
34 THEN 

54 CURRENT_LT_TEST := TRUE; | 
33 iF | 
35 (PRI_SEQLDEF_CURRENT*.PRIMARY] = PRI_SEQCTEST.PRIMARYI) | 
33 (DEF _CURRENT*.PRINUM = TEST.PRINUM) | 
33 (DEF _CURRENT*.SECNUM = TEST. SECNUM) | 
55 (DEF_CURRENT*. SECONDARY < TEST.SECONDARY) | 
55 THEN 

560 | 
561 CURRENT_LT_TEST := TRUE; | 
563 END 

564 | 
365 ELSE | 
369 BEGIN | 


| 
| 
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1 02 
1 1F( 0 
| ; PR] ,SEQLDEF CURRENT” PRIMARY] < PRI_SEQCTEST.PRIMARY]) : 
157 0 
1 ig CURRENT_LT_TEST := TRUE; 8 
1574 

1575 IF 0 
\ 16 (PRI SEQLDEF _CURRENT*.PRIMARY = PRI_SEQCTEST.PRIMARY]) 
1578 (DEF_CURRENT*.PRINUM < TEST.PRINUM) 0 
; Le THEN 
138] CURRENT_LT_TEST := TRUE; 
1388 END; 0 
1584 0 
1585 END; { CURRENT_LT_TEST } 
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CURRENT_EQ_TEST == Compare def_current and test. 


This function has the boolean value of the whether or not TEST is the 
same as DEF CURRENT. 


CALLING SEQUENCE: 
test-val := CURRENT_EQ_TEST (TEST, SCOPE); 
INPUT PARAMETERS: 

SCOPE 

IMPLICIT INPUTS: 

DEF _CURRENT 

OUTPUT PARAMETERS: 

none 

IMPLICIT OUTPUTS: 

none 

ROUTINES CALLED: 

none 

ROUTINE VALUE: 

True if DEF_CURRENT = TEST, false if not. 
SIGNALS: 

none 

SIDE EFFECTS: 

none 

-- } 


v2.4 9) 


VAX-11 Pascal V2.4-277 Pa 3 
tev bor “sac JEDFUTIL.PAS:1 %S9) 


asc 
DISKSVMSMAST 


| 
| 
| 
| 


ecoe'% 


Eur rrrrn 
- art —¢— $$ —- —9 e - 4 


rte igee 3 


ee ee ee ce ec ce ec ce ee ee ed ed ed ed ed ed ed ed ed ed ed 


1 
| E fF T = = 8 H ee ‘ oe | 
iV YOOD Source Listing 1g-Se0-1984 90: 3ai85 DT KSUMGMAS TER FEGF -cecJEDFUTIL.PAS:1° 940) — 


<m 
eg 


16 ¢ CASYNCHRONOUS) FUNCTION CURRENT_EQ_TEST ( 1; 
16 T : LINE_OBJECT; 1; 
16 EXACT COMPARISON : BOOLEAN 1, 
1 5 ) : BOOLEAN; | 1, 
16 BEGIN | 3 
16 3 1; 
16 { + 1; 
HS Just do a boolean assignment. , ‘¥ 
My #4 IF EXACT _COMPARISON THEN y 
er: CURRENT_EQ_TEST := ( y 
Hr Steet AB IECT TE = DEF _CURRENT* .OBJECT_TYPE) : iF 
i 
1648 (TEST.PRIMARY = DEF _CURRENT*. PRIMARY) 31 
1649 AN 14 
1930 (TEST.PRINUM = DEF _CURRENT*.PRINUM) 3 
163¢ (TEST.SECONDARY = DEF _CURRENT*.SECONDARY) 1; 
1654 (TEST.SECNUM = DEF _CURRENT*.SECNUM) Sti 
1655 21% 
1656 ) ei! 
1657 21% 
1658 ELSE ei! 
1659 21% 
1660 CURRENT_EQ_TEST := ( 21 
1661 2l¢ 
1666 (TEST.PRIMARY = DEF _CURRENT*.PRIMARY) $i¢ 
166 AN 1¢é 
1664 (TEST.PRINUM = DEF _CURRENT*.PRINUM) 2l¢ 
1665 1¢ 
1666 Ds 1¢ 
1667 1¢ 
1668 END; { CURRENT_EQ_TEST } Sif 
21i 
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INSERT_BEFORE_ CURRENT == Link the DEF_SCRATCH Line_object into the List. 
This routine adds DEF_SCRATCH into the List just before DEF_CURRENT. 


CALLING SEQUENCE: 
INSERT_BEFORE_CURRENT; 
INPUT PARAMETERS: 
none 

IMPLICIT INPUTS: 

DEF _SCRATCH 
DEFZHEAD 

OUTPUT PARAMETERS: 
none 

IMPLICIT OUTPUTS: 

none 

ROUTINES CALLED: 

none 

ROUTINE VALUE: 

none 

SIGNALS: 

none 

SIDE EFFECTS: 

none 

-- } 
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1716 CASYNCHRONOUS] PROCEDURE INSERT_BEFORE_CURRENT; 38 
1718 BEGIN 
1719 $5 
1720 { + { 
4 1 Make it the new head, if we're adding it before the old head. 
7 § IF DEF_CURRENT = DEF_HEAD THEN 
7 ; DEF _HEAD := DEF_SCRATCH; 3 
1757 (+ 3 
i : 6 ad the fore and back pointers. $i 
1730 DEF _PRED := DEF_CURRENT*.BACK; 55 
1731 DEF-SCRATCH*.FORE := DEF-CURRENT; 32 
7 é DEF-SCRATCH*.BACK  := DEF"PRED: $3; 
7 : IF DEF_PRED <> NIL THEN 32: 
179 i 
1738 DEF_CURRENT*.BACK := DEF_SCRATCH; 32: 
1740 {+ . : 22 
1%) Leave looking at the just inserted line_object. $s 
1748 DEF _CURRENT := DEF_SCRATCH; ai 
1745 END; { INSERT_BEFORE_CURRENT } $e 

22t 

22t 

22) 

22) 

22) 

22) 


DEF_PRED*.FORE := DEF SCRATCH; 
| 
| 
| 
/ 
| 
| 
| 
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1747 { ++ 7 
1768 ? 
Ho INSERT_AT_CURRENT == Link the DEF_SCRATCH Line_object into the List. f 
1781 This routine adds DEF_SCRATCH into the List at DEF_CURRENT. : 
1788 CALLING SEQUENCE: ; 
1039 INSERT_AT_CURRENT; 38 
1757 INPUT PARAMETERS: 28 
1758 sf 
1759 none 8 
1760 29 
1761 IMPLICIT INPUTS: 29 
1768 229 
176 DEF __SCRATCH 229 
1764 DEF CURRENT $53 
1765 DEF HEAD 29 
1766 229 
1767 OUTPUT PARAMETERS: 229 
1768 229 
1769 none 23 
1770 30 
1771 IMPLICIT OUTPUTS: 30 
77e sa 
177 none 30 
1774 230 
1775 ROUTINES CALLED: 230 
1776 30 
1777 none 30 
1778 30 
1779 ROUTINE VALUE: $30 
1780 31 
1781 none $31 
1782 31 
1783 SIGNALS: 231 
1784 31 
1785 none 31 
1786 31 
1787 SIDE EFFECTS: 231 
1788 $3 
1789 none 31 
1790 3 
1791 -- } < 
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CASYNCHRONOUS] PROCEDURE INSERT_AT_CURRENT; 


BEGIN 


{ + 
Make new head or tail, if we're replacing this one. 
IF DEF_CURRENT = DEF _HEAD THEN 


ee 28s 288 28k 28s 8k ode 2s 8d 8k oe me ee 


DEF _HEAD := DEF_SCRATCH; 
IF DEF_CURRENT = DEF_TAIL THEN 
DEF _TAIL := DEF_SCRATCH; 


{ + 
3s iahiaeed the Links to def_current with Links to def _scratch. 


DEF PRED := DEF CURRENT“ .BACK; 
DEF _SUCC := DEF CURRENT*.FORE; 
DEF _SCRATCH*.FORE := DEF CURRENT*.FORE; 
DEF _SCRATCH*.BACK := DEF _CURRENT*.BACK; 


DEF_PRED*.FORE := DEF_SCRATCH; 
IF DEF_SUCC <> NIL THEN 
DEF_SUCC*.BACK := DEF_SCRATCH; 


WAWNAANNN 


bet rid of the old def_current, and point def_current to the new king. 
DISPOSE (DEF CURRENT); 
DEF CURRENT := DEF _ SCRATCH; 

END; { INSERT_AT_CURRENT } 


; 
; 
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INSERT_AFTER_CURRENT == Link the DEF_SCRATCH Line_object into the List. 
This routine adds DEF_SCRATCH to the List after DEF_CURRENT. 


CALLING SEQUENCE: 


INSERT_AF TER_CURRENT; 


INPUT PARAMETERS: 
none 

IMPLICIT INPUTS: 
DEF CURRENT 
DEFZTAIL 
OUTPUT PARAMETERS: 
none 

IMPLICIT OUTPUTS: 
none 

ROUTINES CALLED: 
none 

ROUTINE VALUE: 
none 

SIGNALS: 

none 

SIDE EFFECTS: 
“one 

-= } 


IST. k tag Sh er areas 


N 1 
16-Sep-1984 00:51:37 VAX-11 Pascal V2.4-277 Pace 45. 
Haat 1 09:34:85 DISKSVMSMASTER: LEDF .SRCJEDFUTIL.PAS;1 $5) 


EDFUT ig-se -1984 7 VAX-11 Pascal V 
Ree 008 Source Listing eats yi 99: 33: 3 D1ISKSVMSMAS TER: ‘Fibre gk SRCJEDFUTIL.PAS; 4° 9%)" 
1879 CASYNCHRONOUS] PROCEDURE INSERT_AFTER_CURRENT; 


BEGIN 


IF DEF_CURRENT = DEF_TAIL THEN 


| 
{ + 
Make it the new tail if we're adding it after the old tail. 
DEF _TAIL := DEF SCRATCH; 

| 

| 


{ + 
Update the fore and back pointers. 


VFSRANLES 


cc := DEF _CURRENT*. FORE; 
DEF ~SCRATCH*.F := DEFTS 
DEF“SCRATCH*.BACK  := DEF TCURRENT; 
DEF-CURRENT*.FORE := DEF-SCRATCH; 


oO 
oo 


IF DEF_SUCC <> NIL THEN 
DEF_SUCC*.BACK := DEF_SCRATCH; 


{ + 
Leave looking at the just inserted Line_object. 
DEF __CURRENT := DEF _SCRATCH; 

END; { INSERT_AFTER_CURRENT } 
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{ +4 
INCR_CURRENT == Bump DEF _CURRENT pointer one. 


This routine makes DEF CURRENT point to the next Line_object in the List, | 
as long as it won't fall off the end. 


CALLING SEQUENCE: 
INCR_CURRENT; 
INPUT PARAMETERS: 
none 

IMPLICIT INPUTS: 
DEF CURRENT 
OUTPUT PARAMETERS: 
none 

IMPLICIT OUTPUTS: 
none 

ROUTINES CALLED: 
LIBSSIGNAL 
ROUTINE VALUE: 
none 

SIGNALS: 
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SIDE EFFECTS: 
none 
--} 
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1958 [ASYNCHRONOUS] PROCEDURE INCR_CURRENT; | 
i 

1955 BEGIN 

13 Cs | 

1328 «FORE points to the next Line_object in the List. 

1eet IF DEF_CURRENT <> NIL THEN 

196¢ DEF _CURRENT := DEF_CURRENT*.FORE; 

1964 END;  { INCR_CURRENT } 
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vO4 Source Listing -Sep-19 DLSKSVMSMASTER FEOF -SRCJEDFUTIL.PAS:1 $9) | Vv 
1 { + 1 
1969 1 
1968 DECR_CURRENT == Bump back the DEF_CURRENT pointer one. : 
1370 This routine points DEF_CURRENT to the previous Line_object in the List, P) 
137 as long as it won't run off the end. > 
1378 CALLING SEQUENCE: 
| 
1979 DECR_CURRENT; | 2 
1999 INPUT PARAMETERS: > 
1978 > 
19 none 5 
1980 5 
1981 IMPLICIT INPUTS: | 2 
1988 DEF _CURRENT 23 
1985 OUTPUT PARAMETERS: | 33 
1987 none 53 
1988 33 
1989 IMPLICIT OUTPUTS: 53 
1990 54 
1991 none 34 
1998 54 
1998 ROUTINES CALLED: 3 
1995 LIBSSIGNAL 34 
1996 54 
1997 ROUTINE VALUE: 54 
1998 54 
1999 none 54 
2000 55 
001 SIGNALS: | 55 
90¢ 55 
00 55 
004 SIDE EFFECTS: | 55 
005 55 
006 none 22 
$08 ) | 35 
55 
| 56 
56 
| 56 
56 
| 56 
56 
56 
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CASYNCHRONOUS] PROCEDURE DECR_CURRENT; 
BEGIN 


{ + 
-BACK points to the previous Line_object in the List. 


IF DEF_CURRENT <> NIL THEN 
DEF _CURRENT := DEF_CURRENT* BACK; 
END;  { DECR_CURRENT } 
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; { ++ | 6 
5 NEW_IDENT_LINE == Make a new Ident and stuff it into the definition. | ° 
3 This routine gets the date and time from the Freres and makes a new Ident 6 
3 Line_object, and puts it into the definition Linked List. : 
S ; IT ASSUMES THAT THE LIST IS COMPLETELY EMPTY!!! | 
5 ¢ CALLING SEQUENCE: | o3 
6 : NEW_IDENT_LINE; | Se 
: INPUT PARAMETERS: | o 
0 none | 64 
039 64 
O60 IMPLICIT INPUTS: | 64 
Oe DEF SCRATCH | 64 
063 IDERT_STRING 66 
ner OUTPUT PARAMETERS: | $2 
Se am a: 
bcp IMPLICIT OUTPUTS: | $3 
051 DEF _SCRATCH 65 
O2¢ DEF HEAD 65 
05 DEF-TAIL 65 
094 DEF ~CURRENT | 66 
$39 ROUTINES CALLED: vr 
058 LIBSDATE_TIME 66 
038 MAKE_SCRATCH | 66 
061 ROUTINE VALUE: | 66 
$03 none | 66 
064 67 
065 SIGNALS: | 67 
67 
ae i 
069 SIDE EFFECTS: | 67 
070 | 67 
071 none 
Ore 
07 -- } 


H 2 
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! 
| 


OT? PROCEDURE NEW_IDENT_LINE; 
18 VAR 
re DATE_STRING : STRING2O; 
7 I : INTEGER; 
3] BEGIN 
Ose 
08 {+ 
Ore Create a place for the Ident to go. 
0 MAKE_SCRATCH; 
OB - 
088 {+ 
4 Get system date and time to put into IDENT Line. 
94 LIBSDATE_TIME (DATE_STRING); 
$38 { + 
oe Now, copy it into the ident string. 
FOR I := 1 TO 20 DO 
94 = 20 D 
098 
099 


{ + 

Put an IDENT primary at the head of the Linked List. 
WITH DEF_SCRATCH* DO 

BEGIN 


TEMP _DESCRIPTOR := NULL STRING; 
NEW TTEMP_DESCRIPTOR.DSCSA_POINTER); 


TEMP _DESCRIPTOR.DSC$W_LENGTH 
OBJECT TYPE 


MIP 
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IDENT_STRING_LENGTH; 

PRI: 

IDENT; 

FOR I := 1 TO IDENT_STRING_LENGTH DO 
TEMP_DESCRIPTOR.DSCSA_POINTER*CI1] := IDENT_STRINGCI); 


LIBSSCOPY _DXDX (TEMP _DESCRIPTOR,STRING); 
DISPOSE (TEMP_DESCRIPTOR.DSCSA_POINTER); 


END; { WITH DEF_SCRATCH* } | 


| 
| 
IDENT_STRINGEIJ := DATE_STRINGLIJ; | 


{ + 
Make the just created Line_object the head (and only) one 


DEF _CURRENT DEF _SCRATCH; | 
DEF HEAD DEF “SCRATCH: 
DEF ~TAIL 


DEF “SCRATCH: 
END; { NEW_IDENT_LINE } 
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{ +4 
DELETE CURRENT == Unlink DEF_CURRENT from the List and kill it. 
This routine removes the Line_object pointed to by DEF_CURRENT from the List. 
CALLING SEQUENCE: 
DELETE_CURRENT; 
INPUT PARAMETERS: 
none 
IMPLICIT INPUTS: 
DEF _CURRENT 
DEF HEAD 
OUTPUT PARAMETERS: 
none 
IMPLICIT OUTPUTS: 
DEF __CURRENT 
DEF HEAD 
ROUTINES CALLED: 
EXTRACT_CURRENT 
ROUTINE VALUE: 
none 
SIGNALS: 
none 
SIDE EFFECTS: 
none 
o- } 
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{ + 
Make new tail, if we're deleting old tail. 
IF (DEF_CURRENT <> NIL) AND (DEF_CURRENT = DEF_TAIL) THEN 
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; : PROCEDURE DELETE_CURRENT; 
: ¢ BEGIN 
\ : IF DEF_CURRENT*.PRIMARY = TITLE THEN | 
1 BEGIN 
He ce | 
a TITLE is always the very ist Line_object in the List. 
19] IF DEF_CURRENT*.FORE = NIL THEN 
138 BEGIN 
195 DISPOSE (DEF CURRENT); 
138 NEW_IDENT_LINE; 
198 END { IF TRUE DEF_CURRENT*.FORE = NIL } 
600 ELSE 
$08 BEGIN 
204 DEF _HEAD := DEF_CURRENT*.FORE; 
205 DEF HEAD*.BACK := NIL; 
206 DISPOSE (DEF_CURRENT); 
$07 DEF _CURRENT := DEF _HEAD; 
209 END; { IF FALSE DEF_CURRENT*.FORE = NIL } 

END { IF TRUE DEF_CURRENT*.PRIMARY = TITLE } 

ELSE 

BEGIN 


; 
: 
: 
5 
$5 
| 


DEF _TAIL := DEF _CURRENT*.BACK; 
{ + 
$ Make new head, if we're deleting old head. 
2 IF (DEF_CURRENT <> NIL) AND (DEF_CURRENT = DEF_HEAD) THEN 
§ DEF __HEAD := DEF_CURRENT*.FORE; 
{ + 
Upgate fore and back pointers. | 
DEF _PRED := DEF_CURRENT* BACK; 
DEF_SuUCC := DEF_CURRENT*.FORE; 
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vO0-000 Source Listing Bo een 1984 1938: 5 Vey HT AERREL Nh? seoruris pass hfbar VG 
3 IF DEF_PRED <> NIL THEN 80 
: ip DEF _PRED*.FORE := DEF_SUCC; 30 
re. IF DEF_SUCC <> NIL THEN Hy 
rb DEF _SUCC*.BACK := DEF_PRED; rf 
tz WITH DEF _CURRENT* DO 38 
47 BEGIN 81 
$29 IF STRING.DSC$W_LENGTH > 0 THEN a 
2 STRSFREE1_DX (STRING); 381 
8 IF COMMENT.DSCSW_LENGTH > 0 THEN set 
$52? STRSFREE1_DX (COMMENT); $a 
$522 DISPOSE (DEF CURRENT); 5Bs 
326) IF DEF_SUCC <> NIL THEN $B 
2268 DEF __CURRENT := DEF _SUCC $85 
2966 ELSE IF DEF_PRED <> NIL THEN ses 
44 DEF _CURRENT := DEF _PRED see 
a us i 
gset NEW_IDENT_LINE; AH 
$5¢7 END; { IF FALSE DEF_CURRENT*.PRIMARY = TITLE } 283 
2275 END; { DELETE_CURRENT } 283 

| 

| 

| 
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{ +4 
DELETE_PRIMARY_SECTION == Get rid of a whole primary section. 


This routine removes all the Line_objects of particul i f hy 
definition Linked List. -0b) perticuter primary trom the 


CALLING SEQUENCE: 
DELETE_PRIMARY_SECTION (PRIMARY ,PRINUM) ; 
INPUT PARAMETERS: 


PRIMARY 
PRINUM 


MAA 
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Mrorrr 
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NOs —OV0O~ 
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; 
; 


IMPLICIT INPUTS: 

2 

2 DEF_ 

2 DEF “HEAD 

¢ OUTPUT PARAMETERS: 
301 none 


IMPLICIT OUTPUTS: 
DEF _CURRENT 
DEF~TAIL 

DEF “HEAD 
ROUTINES CALLED: 
EXTRACT_CURRENT 
ROUTINE VALUE: 
none 


Raw 


SUE 


SIGNALS: 

none 

SIDE EFFECTS: 
none 

o- } 
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DEF _CURRENT 
F7TAIL 
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PROCEDURE DELETE_PRIMARY_SECTION (WHICHPRIMARY : PRIMARY_TYPE: 
WHICHPRINUM : INTEGERS; 


<m 


VAR 
DOING : BOOLEAN; 
DONE : BOOLEAN; 
DEF CURRENT := DEF HEAD; 
DOING := FALSE; 
DONE = FALSE; 


{ + 
Cycle until we've deleted the section or we're at the end of the List. 
REPEAT 


{ + 
If_this is the start of the right primary, flag it. 


SEFELESE Ss 


IF ¢ 

(DEF CURRENT“ .OBJECT_TYPE = PRI) 

COEF _CURRENT*. PRIMARY = WHICHPRIMARY) 
(DEF_CURRENT*.PRINUM = WHICHPRINUM) 

) THEN 


DOING := TRUE; 


Gunn 
MAMMA 


ty eaten in the right primary, delete the sucker! 
IF DOING THEN 

DELETE _CURRENT 
ELSE 


2 
é 
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2 
2 
2 
2 
2 
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2 
5 
2 
5 
2 
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{ + 
Move on to the next Line_object in the List. 
INCR_CURRENT; 
{ + 
If we're not already off the end, see if this is still the 
right primary. If not, flag that we're done. 


i 
IF DEF_CURRENT <> NIL THEN | 
| 
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IF ¢ 
(DOING) 

(DEF _CURRENT*.OBJECT_TYPE = PRI) 
AND 
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106-006 Source Listing Mer eeer1 bes $9: 8n:86 — DISKSUMGMASTER EEG SecJEDFUTIL.PAS:)°246)— 
(DEF_CURRENT*. PRIMARY <> WHICHPRIMARY) 

(DEF_CURRENT*.PRINUM <> WHICHPRINUM) 

) THEN | 

DONE := TRUE; | 

UNTIL (DONE) OR (DEF_CURRENT = NIL); | 

END;  { DELETE_PRIMARY_SECTION } 

| 

| 

| 

| 
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INIT DEF == Clear out the definition and setup for a new one. 


1 This routine makes room to put a brand new definition in the Linked List. 

: CALLING SEQUENCE: 

‘1 INIT_DEF; 

607 INPUT PARAMETERS: 

408 none | 

409 

rt IMPLICIT INPUTS: 

tig none 

41 

et OUTPUT PARAMETERS: 

ret none | 

4) 

ht IMPLICIT OUTPUTS: | 

420 DEF _CURRENT | 

r 1 DEF _HEAD 

; 5 ROUTINES CALLED: | 

" 5 none 

4 $ ROUTINE VALUE: OC 

428 

: 9 none is 

‘ 1 SIGNALS: 30% 

" ; none 

435 SIDE EFFECTS: 1 

136 | 0! 

oe none | 4 

439 - } | 0 
0' 
| " 
| 4 
| 
| 
| 
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PROCEDURE INIT_DEF; 


44 BEGIN 

444 

445 { ¢ 

v4 | Clear out the List starting at the beginning (if not already empty). 
“a DEF CURRENT := DEF _HEAD; 

r ? IF DEF_CURRENT <> NIL THEN 

4 § BEGIN 

4 

ri ¢ REPEAT 

‘ § DELETE_CURRENT; 

¢2 UNTIL DEF_HEAD = DEF_TAIL; 
460 IF DEF_CURRENT <> NIL THEN 


| 
| 
| 
| 
| 
| 

461 

46 DELETE_CURRENT; 

{ INIT_DEF > 
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INSERT_IN_ORDER == Put DEF_SCRATCH into the List in proper order. 
This routine places the Line_object pointed to by def_scratch in the definition 


Linked List in its proper place. 
CALLING SEQUENCE: 

INSERT_IN_ORDER (COLLISION_ACTION) ; 
INPUT PARAMETERS: 

COLLISION_ACTION 

IMPLICIT INPUTS: 


DEF _CURRENT 
DEF TAIL 


DEF HEAD 

DEF SCRATCH 
OUTPUT PARAMETERS: 
none 

IMPLICIT OUTPUTS: 
none 

ROUTINES CALLED: 
none 

ROUTINE VALUE: 
none 

SIGNALS: 

none 

SIDE EFFECTS: 
none 

«= } 


ascal Ve sseeT? rage 61 
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| 
16 CASYNCHRONOUS) PROCEDURE INSERT IN_ORDER ( | 11 
: OLCISTON_ACTION : INTEGER | i 
18 ‘ j 1 
0 VAR | 1 
1 BACKUP _WORKED : BOOLEAN; | | 
‘ BEGIN | 1 
i 1 
5 { + 1 
$ Ist, a Little conditioning. le 
TF F 
5 $ (DEF SCRATCH .OBJECT_TYPE = PRI) 1; 
1 (DEF _SCRATCH*.PRIMARY <> TITLE) 13 
§ ) THEN 3 
234 DEF _SCRATCH*.STRING.DSC$W_LENGTH := 0; ii 
5 DEF_SCRATCH*.FORE  := NIL; 13 
; DEF “SCRATCH*.BACK := NIL; iF 
539 { + 14 
279 Now, find the proper place. Start looking at the previous Line_object. x 
206 BACKUP _WORKED := FALSE; iy 
26 IF DEF_CURRENT <> NIL THEN 14 
246 IF DEF_CURRENT*.BACK <> NIL THEN 14 
54 14 
248 BEGIN 14 
266 DECR_CURRENT; 16 
551 15 
23¢ WHILE NOT ( 16 
333 (CURRENT_GT_TEST(DEF_SCRATCH*, TRUE) ) iF 
335 (CURRENT_EQ_TEST(DEF_SCRATCH*, TRUE) ) 1; 
339 (DEF_CURRENT*.FORE = NIL) 14 
338 Ms \ 
336 INCR_CURRENT; 1 
561 1¢ 
266 BACKUP _WORKED . ( if 
266 (CURRENT _LT_TEST (DEF _SCRATCH*, TRUE) ) if 
266 (DEF _CURRENT*.FORE = NIL) 1¢ 
56 1 
568 1 
(CURRENT_EQ_TEST(DEF_SCRATCH*, TRUE) ) 1 
Py { 
71 1j 
END; { IF DEF_CURRENT*.BACK <> NIL } 1j 


b | 


. 
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7 | 
73 IF NOT BACKUP_WORKED THEN 

BEGIN | 

? | 

f fg 

The quick look didn't work, now scan the entire List. 


WHILE NOT (¢ 
(CURRENT _GT_TEST (DEF _SCRATCH*, TRUE) ) 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


MM... A.M... MM MMMM MMM MM iwi It 


DEF _CURRENT := DEF_HEAD; 
5 
(CURRENT _EQ_ TEST (DEF_SCRATCH*, TRUE) ) 
(DEF _CURRENT*.FORE = NIL) 
89 ) DO” 
$31 INCR_CURRENT; 
338 END; { IF NOT BACKUP_WORKED } 
296 {+ 
4 Rey insert it according to how it was (found). 
298 IF CURRENT_GT_TEST(DEF_SCRATCH*, TRUE) THEN 
600 INSERT_BEF ORE_CURRENT 
608 ELSE IF CURRENT_EQ_TEST(DEF_SCRATCH*,TRUE) THEN 
60% BEGIN | 
606 IF COLLISION_ACTION = REPLACE_OBJ THEN 
608 INSERT_AT_CURRENT | 
619 ELSE IF COLLISION_ACTION = AFTER_OBJ THEN 
o1¢ INSERT_AF TER_CURRENT; 
614 { IF COLLISION_ACTION = IGNORE_OBJ THEN '"NULL~STATEMENT' } 
a 7 | 
618 ELSE IF DEF_CURRENT*.FORE = NIL THEN | 
6 9 BEGIN | 
6 ¢ DEF _CURRENT; 
? ? INSERT TAFTER. CURRENT; 
5 END; | 
657 END;  { INSERT_IN_ORDER } | 


{ ++ 
FIND_OBJECT == Locate a Line_object in the definition List. 


This function returns with DEF CURRENT gojating t9 the desired Line 
object - if it finds it, in which case it's function value is true. 


? CALLING SEQUENCE: 
: BOOLEAN_VAR := FIND_OBJECT (LINE_OBJECT_TYPE,PRIMARY ,PRINUM, SECONDARY, SECNUM) ; 
rh INPUT PARAMETERS: 
yak OBJECT _TYPE 

64 PRIMARY 

644 PRINUM 

645 SECONDARY 

| SECNUM 

64 

648 IMPLICIT INPUTS: 
649 

650 none 

651 

$36 OUTPUT PARAMETERS: 
re none 

655 

$26 IMPLICIT OUTPUTS: 
$38 DEF _CURRENT 

roe ROUTINES CALLED: 
O66 none 

66 

eee ROUTINE VALUE: 
v4) TRUE/FALSE DEPENDING ON FOUND STATUS 
668 SIGNALS: 

¢ 34 

670 none 

671 

ore SIDE EFFECTS: 

67 

674 none 

675 

676 -- ) 


; | 
Foe 008 Source Listing if-sep-1984 POebi gs PNcdumsaasten fepr-saceprurie.pass1 981)" 
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78 FUNCTION FIND_OBJECT ( 
6 OBJ_TYP : LINE OBJECT_TYPE; 

PRIA : PRIMARY_TYPE; 

1 PRIMNUM : INTEGER? 
SECO : SECONDARY_TYPE; 
SECONUM INTEGER 
é ) : BOOLEAN; 
6 VAR 
ST : LINE_OBJECT; 
FOUND_IT : BOOLEAN; 

6 9 PAST_IT : BOOLEAN; 
691 BEGIN 
69 
69 { + | 
oR +5 ts test object for comparison routine. 
69% TEST.OBJECT_TYPE = OBJ_TYP; 
69 TEST. PRIMARY = PRIA; 
698 TEST. PRINUM = PRIMNUM; 
699 TEST. SECONDARY = SECO; 
7009 TEST. SECNUM = SECONUM; 
70 { + 
At stort looking at head of List. | 
705 DEF _CURRENT := DEF_HEAD; 
706 FOUND _IT := FALSE; 
ah PAST_TT := FALSE; 
708 IF DEF_CURRENT <> NIL THEN 
711 BEGIN 
re 
3 REPEAT 
715 FOUND_IT := CURRENT_EQ_TEST (TEST. TRUE); 
at PAST_IT := CURRENT_GT_TEST (TEST, TRUE); 
8 IF NOT FOUND_IT THEN 
4 9 INCR_CURRENT; 
4 g UNTIL (FOUND_IT) OR (PAST_IT) OR (DEF_CURRENT = NIL); | 
754 END; | 
725 | 
726 { + 
z i Function value indicates whether we found it or not. | 
t 9 F IND_OBJECT := FOUND_IT; 
731 END; { FIND_OBJECT } 
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| 
| 
i 3 { +4 | 
4 5 POINT_AT_DEFINITION == Setup the List pointers. 
f 4 This routine makes the List pointers point at the Definition Linked List. | 
139 CALLING SEQUENCE: 
741 POINT_AT_DEF INITION; | 
7%4 INPUT PARAMETERS: 
744 
oe? none 
74 IMPLICIT INPUTS: 
748 
749 none 
£20 
re) OUTPUT PARAMETERS: 
75 none 
754 
£33 IMPLICIT OUTPUTS: 
757 DEF __HEAD 
758 DEF “TAIL 
759 DEF- “sf arg 
760 DEF TAIL 
el POIRTING DIRECTION 
76 ROUTINES CALLED: | 
764 
765 none 
767 ROUTINE VALUE: 
769 none 
770 
771 SIGNALS: 
77 
77 none 
774 | 
ae SIDE EFFECTS: | 
77 the current List is the definition list 


--} 


3 
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a5 
3 


i 1 CGLOBAL] PROCEDURE POINT_AT_DEF INITION; 

f : BEGIN 

f 5 IF NOT POINTING_AT_DEFINITION THEN 

f BEGIN 

789 DEF __ANL_HEAD = DEF _HEAD; 

7 DEF _ANL TAIL = DEF_TAIL; 

791 DEF HEAD = DEF_SAVE_HEAD; 
n DEF_TAIL = DEF_SAVE_TAIL; 
ree POINTING_AT_DEFINITION := TRUE; 

796 END; 

797 


798 END; { POINT_AT_DEFINITION } 


kK 3 
¥O0-000 Source Listing "or eeer13ks 13:38:55 DISK SuMSMASTER CEDF-SRCJEDFUTIL.PAS;1°085)°° 
{ +4 
POINT_AT_ANALYSIS == Setup the List pointers. 
This routine makes the List pointers point at the Analysis Linked List. 
CALLING SEQUENCE: 
POINT_AT_ANALYSIS; 


SSSSoronss 


519 INPUT PARAMETERS: 
aig none 

Biz IMPLICIT INPUTS: 
815 

Big none 

81 

seis OUTPUT PARAMETERS: 
: , none 

¢ IMPLICIT OUTPUTS: 
e8e% DEF _HEAD 

825 DEF _TAIL 

2826 DEF __ANL_HEAD 

2827 DEF ANL_TAIL 

2828 POINTING_DIRECTION 
seta 

sees ROUTINES CALLED: 
2832 none 

see 

834 ROUTINE VALUE: 
2835 

836 none 

837 

838 SIGNALS: 

839 

840 none 

841 

si SIDE EFFECTS: 

Bed the current List is the analysis List 
$bee -- } 


Sep- 


Bs PROCEDURE POINT_AT_ANALYSIS; 

Bet BEGIN 

B26 IF POINTING_AT_DEFINITION THEN 

Rez BEGIN 

855 

856 DEF __SAVE_HEAD = DEF_HEAD; 

857 DEF-SAVE_ TAIL = DEF_TAIL; 

858 DEF “HEAD~ = DEFTANL_HEAD; 
$23 DEF_TAIL = DEF_ANL_TAIL; 
yd POINTING_AT_DEFINITION := FALSE; 

sees END; 

2864 
2865 END; | { POINT_AT_ANALYSIS } 
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£6? { ++ 
, EDFSLINE_PARSED == Action routine for FDLSPARSE routine. 
Bo) This routine stores into the definition database the values from FDLS$PARSE. 
aie CALLING SEQUENCE: 
184 Called from the FDLSPARSE routine. 
2878 INPUT PARAMETERS: 
87 none 
2880 
881 IMPLICIT INPUTS: 
BS 
tts FDL_BLOCK 
885 OUTPUT PARAMETERS: 
886 
2887 none 
2888 
seep IMPLICIT OUTPUTS: 
2891 DEF _CURRENT 
son8 DEF_TAIL 
89 DEF _HEAD 
2894 DEF “SCRATCH 
2895 
seas ROUTINES CALLED: 
2898 MAKE _SCRATCH 
4464 LIBSSCOPY_DXDx 
$304 ROUTINE VALUE: 
2902 
Son7 Always 1 (for success). 
$308 SIGNALS: 
2906 
2907 none 
908 
909 SIDE EFFECTS: 
910 
348 none 
$918 oi 
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CASYNCHRONOUS GLOBAL] FUNCTION EDFSLINE_PARSED : INTEGER; 
BEGIN 


{ + 
This routine always succeeds. 
EDFSLINE_PARSED s2 1; 


{ + 
Create a new Line object to be added to the List. 
MAKE_SCRATCH; 


{ + 
Get the control longword. 
TEMP_FDL3STYPE := FDL_BLOCK*CFDOLSL_CTRLI: :FDL3STYPE; 


{ + 
Sapenenety ignore a Line if it's an IDENT, or if the Warning bit is set. 


IF ( NOT ¢ 

(CTERP_FOLSSTYPE .FOLSV_NEWPRI) 
(FDL_BLOCK*CFDLSL_PRIMARY]::PRIMARY_TYPE = IDENT)) 
(TEMP_FDL3STYPE.FDL$V_WARNING) 

)) THEN 


WITH DEF_SCRATCH* DO 
BEGIN 


i the type of this Line_object. 
IF TEMP_FDL3STYPE.FDLSV_NEWPRI THEN 
OBJECT_TYPE := PRI 
ELSE 
OBJECT_TYPE := SEC; 


{ + 
Check for a full Line comment, as it is a 3rd object type. 
IF TEMP_FDL3STYPE.FDLSV_LINECMT THEN 

OBJECT_TYPE := COM; 


{ + 
Fetch the primary and secondary values. 


FDL_BLOCK*CEDLSL_ PRIMARY: : PRIMARY TYPE; 
FDL~BLOCK*CFDL$L~ SECONDARY: : SECONDARY_TYPE; 


PRIMARY 
SECONDARY 


-1984 “11 P 
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sed 


{ + 
Store the comment string if a comment was detected. 
IF TEMP_FDL3STYPE.FDLSV_COMMENT OR TEMP_FOL3STYPE.FOLSV_LINECMT THEN 


BEGIN 
TEMP _DESCR IPTOR := NULL_STRING; 
TEMP~DESCRIPTOR := CVT_QUAD_DESC ( 
FDL_BL LOCK“FEDLS L$Q_COMMENT) 
FDL BLOCK“ CF DL$Q"COMMENT+1J 
LIBSSCOPY_DXDX (TEMP_DESCRIPTOR, COMMENT); 
END; 


{ + 

stare the string if it’s an attribute with a string value. 

IF ¢ 

((NOT TEMP_FDL3STYPE.FDLSV_NEWPRI) AND (SEC_TYPECSECONDARY].STR)) 


OR 
{ for ge osition hey bY file_n 
((NOT TEMP_FDLSSTYPE.FDLSV EWPRIT. AND {SECONDARY © POSITIONS) ) 


OR 
((TEMP_FDL3STYPE.FDLSV_NEWPRI) AND (PRIMARY = TITLE)) 
) THEN 
BEGIN 
TEMP_DESCRIPTOR = NULL_STRING; 
5 TEMP_DESCRIPTOR = CVT_QUAD_DESC ¢ 
10 FDL_BLOCK*CFDL$Q_STRING] 
1 FDL L-BLOCK*CFDLS$Q"STRING+1] 
13 LIBSSCOPY_DXDX (TEMP_DESCRIPTOR, STRING); 
15 END; 
3 
1 { + 
\3 Now stuff the new Line_object with the remaining data from FDLSPARSE. 
$1 IF PRIMARY IN C AREA, KEY, ANALYSIS_OF_AREA, ANALYSIS_OF_KEY ] THEN 
é PRINUM := FDL_BLOCK*CFDLSL_PRINUM) 
: ELSE 
6 PRINUM := 0; 
8 


IF SECONDARY IN C SEG_LENGTH, SEG_POSITION ] THEN 


] 


Source Listing ifose Been be 8:8bi8s DAS cSUMBMAS TER Pépr-sacJEDFUTIL.PAS: 1°78) > 


SECNUM := FDL _BLOCK*CFDLSL_SECNUM) 


Wr 


{ + 

Until RMS supports different types per se wag F 

ooke the Type pecondery that last one in ehy grmnery: 
SECNUM is” igher sorting priority than SECONDA 


ELSE IF SECONDARY = SEG_TYPE THEN 


wn 


8 

2 SECNUM 72 7 

1 ELSE 

§ SE CNUM := 0; 

5 { ++ 

§ IF RMS EVER IMPLEMENTS DIFFERENT DATA TYPES FOR EACH KEY SEGMENT, 
; USE THE FOLLOWING CODE. 

29 IF SECONDARY IN C SEG_LENGTH, SEG_POSITION, SEG_TYPE ] THEN 
2g SECNUM := FDL_BLOCK*CFOLSL_SECNUM) 

54 ELSE 

55 

56 SE CNUM := 0; 

57 
58 


dD 4 
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O60 { + 
0¢ Qualifiers values are more complicated. 
06 IF ( | 
064 (SECONDARY = MT_PROTECTION) | 
066 (SECONDARY = NULL_VALUE) 
} " ) THEN 
3069 BEGIN 
‘ 
07 {+ | 
4 shgee two come back in a funny place. 
N74 QUALIFIER := 0; 
075 NUMBER := FOL_BLOCK*CFOLSL_QUALIFIERJ; 
07 END 
078 
079 ELSE | 
080 
081 BEGIN | 
{1 { + 
at See which secondary we have. 
086 CASE SECONDARY OF | 
088 ORGANIZATION : 
Oe 
09¢ CASE FDL_BLOCK*CFDLSL_QUALIFIER OF 
109¢ FABSC_IDX : QUALIFIER := FDLSC_IDX; | 
05 FABSC"REL : QUALIFIER := FDLSCTREL; 
094 FABSC-SEQ : QUALIFIER := FDLSC"SEQ; 
N96 OTHERWISE 
‘* 
098 { NULL=STATEMENT } ; 
Rae 
100 END; { CASE FDL_BLOCK*CFDLSL_QUALIFIER] } 
1 , CASE FDL_BLOCK*CFDLSL_QUALIFIER) OF 
| 
1 FABSC_FIX : QUALIFIER = FOLSC_FIX; | 
1 FABSC-STM : QUALIFIER = FDLSC"STM: | 
1 FABSC-STMCR QUALIFIER = FDLSC-STMCR; 
1 FABSC~STMLF QUALIFIER = FDLSC"STMLF; 
110 FABSC"UDF : QUALIFIER = FDLSC"UDF; 
111 FABSC_VAR : QUALIFIER = FOLSC"VAR;: 
18 FABSC~VFC QUALIFIER = FDLSC"VFC; 
114 OTHERWISE 
116 { NULL=STATEMENT } ; 


, | 
EDFUT ig-se -1 2:51:37 VAX-11 Pascal V2.4-277 Pa 75. 
vi veet Source Listing 730071382 99:33:86 DLaKSVMSMASTER  FEDF -SRCIEDFUTIL.PAS:1 5) | 
17 | 
13 END; { CASE FOL_BLOCK*CFDLSL_QUALIFIER] } 
SEG_TYPE : | 
; CASE FDL_BLOCK*CFDLSL_QUALIFIER OF 
4 XABSC_BN2 : QUALIFIER = FDLSC_BN2: | 
5 XABSC"BNG : QUALIFIER := FDLSC"BNG: | 
6 XABSC"BNB : QUALIFIER := FDLSC-BNS; 
KABSC“PAC : QUALIFIER := EDLSC-PAC; 
8 KABSC_INO : QUALIFIER = EDLSCLING: 
KABSC-ING : QUALIFIER := FDLSCWING; 
KABSC-INB : QUALIFIER := FDLSC-INB; 
1 KABS$C~STG QUALIFIER := FDLSCUSTG: 
: OTHERWISE 
5 { WULL-STATEMENT } ; 
END; { CASE FOL_BLOCK*CFDOLSL_QUALIFIER] } 
QUALIFIER := FDL_BLOCK*CFDLSL_QUALIFIERI; 
END; { CASE SECONDARY } 
NUMBER := FDL_BLOCK*CFDLSL_NUMBERI; 


{ + 
Now store the other information coming back from FDLSPARSE. 
IF ODD (FDL_BLOCK*CFDLSL_SWITCH]) THEN 


PAAAATAMMNA ES BELLE LEE 
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| 
| 
| 
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SWITCH := TRUE 
ELSE 

SWITCH := FALSE; 
OWNER _UIC = FDL_BLOCK*CFDOLSL_OWNER UIC); 
PROT_MASK := FDL“BLOCK*CFDLS$L-PROTECTIONI: :CTRL_ARRAY; | 
FID1 := FDL_BLOCK*CFOLSL_FID1); | 
F1D¢ := FDLBLOCK* FDL SLE 1De ; 
FID = FDLTBLOCK*CFDLSL~F 103); | 
{ + 
Now put def_scratch into the Linked List. Depending upon whether 
we're inputting an FDL file or a analysis file. 
CLUSTER SIZE must go into both the analysis definition and the 
aaln definition. 
IF ¢ 
(ANALYSIS_ONLY AND (PRIMARY IN C ANALYSIS_OF_KEY, ANALYSIS_OF_AREA })) 


F 4 
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174 OR 
175 ((NOT ANALYSIS ONLY) AND (NOT (PRIMARY IN C ANALYSIS_OF_KEY, 
178 ANALYSIS_OF AREA »») | 
1 (SECONDARY IN C CLUSTERSIZE J) | 
; ) THEN 
i If OBJECT_TYPE = COM THEN | 
; BEGIN | 
185 DEF CURRENT := DEF_TAIL; 
INSERT _AFTER_CURRENT; 
END 
190 ELSE 
198 INSERT_IN_ORDER (IGNORE_OBJ); 
194 END; { IF NOT IDENT PRIMARY; ALSO WITH DEF_SCRATCH* DO } 
196 END;  { EDFSLINE_PARSED } 
19 
198 ND. 
199 { End of file: SRCS:EDFUTIL.PAS } 


— eee ee 


‘ | 
vee Generated Code if-sep-1944 99:5ai85 DLaKSVMSMASTER FEOF -SRCIEDFUTIL.PAS:1° 9799) 
“IDENT WO2-000\ | 
-PSECT SCODE,PIC,CON,REL,LCL,SHR,EXE,RD.NOWRT,2 


3 eAAA: ASCII <27><92> 
-AAB: .ASCII 
7 ; 9 AAC: ASC i \_Lines\<0><0> 
} «AAD: ASCII <27>\Pp; £5) 46 7><92><0> 
Hi ¢ ¢ ; wAAE: ASCII < 2>\PpP re 20 iV(W(10,$1 £,SC.4793) C+7\- 
& : % 7 50 ; 7 : 
C 


— 23 4 3 7 eAAF: ASCII <27>\Pp;$(E);\<27><92><0> 
6 «AAG: .ASCII \ There is no Primary Key in the Current \- 
tt r ef é if 3 i Q 6p 69 \Wefinition. \ 
E 6F 69 7% bE 
8 ~AAH BYTE PP 
00000000 00000000 00000000 0 C.AAl: .LONG 0,0,0,0 
00 88 wt: 98 “BYTE 7x60,6,0 
00000000 00000800 00000000 00 9C C.AAJ: .LONG ,0,°x800,0 
00 80 88 BYTE 7 ,0 
F .BLKB 
00 18 DO0BO C.AAK: .BYTE 2418.0 
1 32 C.AAL: .BYTE “X18, 
000 NUM_LEN:.WORD “M<R2,R3> : 0166 
5¢ 06 BC p MOVL (R12) ,NUMBER 
Ov BNEQ : 0176 
50 Ba MOVL #1,NUM_LEN : 0181 
ov 1 908 BRB 10 
1 3B9ACA00 BF OD D 28: MOVL $ #1000000000, TEST_VAR : 0190 
é A b0 00014 MOVL #10,TEST_LEN : 0191 
VL : ; 
17 MO NUMBER, R3 193 
v 1A BGEG = 4 
53 CF 1C MNEGL R3,R3 
51 : 1F 4$: CMPL 3, TEST_VAR : 0195 
v § é BGEG = 6 
D DECL TEST LEN : 9197 
3 5 2 $ 6$: DIVL2 #10,TEST_VAR 1 
1 ; p CMPL RS. fEST_VAR 
F C BLSS = 4 
p TSTL NUMBER : 0206 
V BGEQ )=ssO9S 
Dd INCL TEST_LEN : 020 
50 p 98: MOVL TEST LEN, NUM_LEN ; 021 
4 000357 10$: RET : 1 
; Routine Size: 56 bytes, Routine Base: SCODE + 000B4 
MAX_FACTOR: : 0267 
001 . WORD omeR? R3,R4> 
50 04 Bc MOVL a4(R $) -BASE 
1 8 BC D MOVL $ a8(R12). VALUE 


ee 


EDFUT 16-Sep-1 251: VAX-11 Pascal V P 78 
vithet Generated Code : sen-1984 90: 3ai85 os ER: 4 Ee cRcJEDFuTin.Pas:1°789) 
5¢ oc gr MOVL @12(R12) MA 
: p CHP ALUE E BASE : 0278 
13 Tit se | 
52 k p 28: MOVL BASE. TEMP F 0280 
i ? c? 38: DIVL3 BASE ,VALUE TE TEMP : 0286 
33 3 g 7 DIV BA Ree ay” Lue AA ; | 
V , peed re | 
53 C ADDL2 BASE.R3 
v RA Ge 
06 INCL. TEMP : 0290 
32 C gs: MULL2 BASE,TEMP : 0292. 
C : b} $: CML TEMP MAX + 0296 
52 g Mi} MOVL MAX, TEMP ; 0298 
5 BO 98: MOVL § MAX. FACTOR,RO + 0302 
4 RET 
; Routine Size: 70 bytes, Routine Base: SCODE + OOOEC 
99000 CALC_REC -OVERHEAD: : 0348 
0000 9900 . | 
5¢ 04 ec 60 90 hove an tri2) INDEX, LEVEL 
D4 00 CLRL RECOR D D -OYERH : 0357) 
000000846 EF 05 0000 TSTL : 0362 
bov 13 0000 QL 
c p 901 Ist NDEX_LEVEL 
50 6 Ste ADDL2 #11 RECORD a OVERHEAD : 0364 
OOvOoO0000CG EF 0 6b aor 3$: BBC twoeeLe Tasi2,5 : 0369 
v1 1 BEQL 
00VO000000EG EF OY EF 90058 58 #0,BDATA+14,8$ | 
: p : st NOEX_LEVEL 
50 C F 7$: ADDL2 #2,RECORD_OVERHEAD : 0375 
C ; 2 8S: Ist NOEX_LEVEL : 0380 
50 be. ¢ ADDL2 #4 RECORD OVERHEAD : 0382, 
000000846 EF : 10$:  ‘TSTL DATA+13 ; 
Ov F BNE | 
, f Ist NDEX_LEVEL | 
00v000000006 ff f BBC VARIABLE_RECORDS, 14$ ; 0391 
0 : £6 ADDL2 f { ,RECORD_OVERHEAD ; 93 | 
oovooo0000n6 er é¢ : 138; BBPe FB RECORD QVERNEAD 0397 | 
+4 C " ADDL2 ss # aera. WERHEAD : 0401 
90v0000000¢6 EF £0 178: BBS } -BDATATe. | ; ? > 0403 
50 ooo000nes EF €0 198: ADDL2TDATAt216,RECORD_ OVERHEAD ; 0405 | 


: Routine Size: 120 bytes, 


; Routine Size: 20 bytes, 


Generated Code 


Routine Base: S$CODE + OO1AA 


dovo00000006 


000000006 

F8 

FC 
0000006 
00v000000006 


000000006 
03 000000006 


000000006 


000000006 


Routine Base: SCODE + 00132 


5¢ 0 


5E 

EF 

EF 
00000006 
00000006 
FFFFFEIB 
4444 

ss OO000F F 
00000006 
0 2 here 

AD FF 

AD vounns 

F 
EF 
EF 


_, 000000006 


EF 
000000006 


“" poconoang 
BHR 
E 000000006 
50 000000046 


Hee 


So 


OWMOmMMNnooOOoOmMoesd ommnoaocrmoamn 


RONOVME NAN VOWS VFN OWO MAHAN 


ooo 
"OOo 


mowomommm 


oS 


a 


om 
nm" 


04 00077 21%: 


4 ” 
2 
Ye 


FB 


CALC _BUC_OVERHEAD: 
WORD “* 


Sous 


COOOCOCOCCoOO 


SoOoooooooooooo 


SoOoOoooooocooo 
SSLIESSSSSER 


<> 
(R12), INDEX_LEVEL 
#16,CALC_BUC_OVERHEAD 


#18, CALC_BUC_OVERHEAD 
CAL€_BUC"OVERHEAD ,RO 


EDF SRESET_SCROLL,“M<> 
#0; AUTO_TUNE,8$ 
#0-REGIS,4$ 
sti 
C.AKA 

T_LINE 


#4 ,PASSWRITEV_STRING 
HF FLAGS 


CHE 
ON 
#186974463,-8(FP) 
T LINE. ~4(FP) 
#3,LIBSPUT_LINE 
#0. SCROLLING SET,7$ 
LINES _PER_PAGE 
LINE ONE 
#2, LTBSSET_SCROLL 
#9, FILE CREATED, .+3 
RES OUTPUT _F ILENAME _DESC 


igs 
#2, CHFFLAGS 
Ouf LINE 

CRLF 


73 LINE 
#4 PASSWRITEV_STRING 
R § OUTPUT_FICENAME_DESC,-(SP) 


R 
pace een geres 
5 


Ot LINE 
#255 


She 99:85:88 DIScBuMSRASTER‘ EDF SacJEDFUTIL.PAS;t P59) 


4 | 
opr 9ke 99:85:85 DiSiSumGRASTER fEDF ShcaepruTiL.pas:t Wo)" ve 
| 


Wore 


a 
wm 


$0600 Generated Code , 


00000000G_ EF 
FFFFFDS8 


_, Resear 


000000006 
CF 


SF 

' 0 FF 

FFFFFDI9 

Suu 
00000000G_ EF 

4 94 9544: 

a Bee 

FC = =AD 00 soups 
00000000G_ EF 


CALLS #6,PASSWRITEV_STRING 
PUSHAB C,AAB 
PUSHAB OUT_LINE 
PUSHL #255 

#4, PASSWRITEV_STRING 
PUSHAB LINES SHOWN 
CALLS #1,NUA_L 


PUSHL LINES_SHOWN 
PUSHAB OUT_LINE 


7 
#4 ,PASSWRITEV_INTEGER 
C. AAC 


86 

PUSHAB 9 T_LINE 

CALLS #4,PASSWRITEV_STRING 
CHEFLAGS 


000000006 
0084 


000000006 


3; 0565 


ON 
MOVL 0186974463 -8(FP) 
MOVAB T_LINE,-4(FP) 
“8(FP) 


( 
,»LIBSPUT_LINE 
12$: RET 3; 0569 


COPYPMOMMNOoOMOMOOmMMNnAOmMmowmnona 
WO AAA HA MAA NOO HF MPO MO 
OMNOOVTOONO OVC OO OVO"OT"OOCO™" 
FO MMO "Wo "O "WoO *OVCO "WoO "oOo "WwW. 
CO MOM Ord uwnVO NOF LIMO VJ" BP HMO 

oO 

> 

” 

- 

wm 


SOOCCCOCOOOOOOOOOOOOOOOSOOO 
leleleleleloleololololeleleolololololololelololeileia=) 
ab aD ad de 8 i 

AOU & PWN =OO00OT 7 So 


; Routine Size: 361 bytes, Routine Base: SCODE + 001BE 


So 
oe 
no 32 OOO 


COOOGCGOOOOCOOOOOOOOOOOOOOOOoOoOSoSoOo 


CLEAR: .WORD ; 0617 
MOVL 


“M<> 

@4(R12) ,DESTINATION 
#0, VIDEO_TERMINAL, .+3 : 0626 
BBC #0, AUTO_TUNE,.+3 


B 
CASEL DESTINATION, #0,#3 ; 0634 


5¢ 04 
03 00000000G_ EF 


03 00000000G_ EF 
03 00 


f=] 
So 


So 
o 
oow 
oon 
<_< 
OWMUIM SO SO 


«DISPL gs 
D $ 


ooooo 


MOMOMMOOMMOMOMoOMoOOOOoOouoo 


TR HNHNO Sf FH MND M"OOOOOOM SCS 
<<cccc 


Oooooooooooococo 


SOS PPeCOR RRR RS SSSSSS 


26$ 
00v000000006 3$: BBC #0,REGIS,5$ ; 0646 


C. AAD + 0648 


il 
PUSHAB PASSFV_OUTPUT 
CALLS #3,PASSWRITE STRING 
PUSHAB PASSFV_OUTPUT 
CALLS #1,PASSWRITELN2 
5$: PUSHAB COL_ONE 


LINE ONE 
CALLS e -LTBSERASE _PAGE 


: FFFFFCAC 
000000006 
- 000000006 
$44 00G 
EF 


OWWID OR FMOM0O—MANG 
=] 
— 
“ 
v 
- 


000000006 


000000006 5 0650 
000000006 wenere: 
; 0651 


#32 

PUSHAB PASSFV_OUTPUT 

CALLS #3,PASSWRITE CHAR 

PUSHAB PASSFV_OUTPUT 

CALLS #1,PASSWRITELN2 
COL_ONE 


000000006 
000000006 
000000006 


000000006 
000000006 


a 
Am OMIM S CO—Wvinco 
v 
c 
72) 
= 
se 


WMOMNOVTITNOO"ONOVO OMW 


; 0652 


; Routine Size: 410 bytes, 


Generated 


000000006 
00v000000006 


000000006 
000000006 
000000006 


000000006 


00v000000006 
03 000000006 


00v000000006 


949 44-6444 
00v000000006 


000000006 
000000006 
000000006 
000000006 
000000006 
000000006 


000000006 


EF 
EF 


EF 


EF 


Code 
000000006 EF 
ob 
FFFFFC47 cr 
000000006 Fe 
000000006 fr 
0000000G_ EF 
00000006 bp 
00 by 
000000006 EF 
00000000G_ EF 
of 
vet 
666640A6 oF 
00 
FFFFFBFS 34 
000000006 fF 
000000006 ff 
00000000G_ EF 
000000006 O° 
1 
20 
000000006 fF 
000000006 Fr 
00000000G_ EF 
000000006 8 
O6v 
0000001F a 
00v 


Routine Base: SCODE + 00327 


08 
046 BC 


Wno 
nn 


ONO RIO MW OCOD OOO 71 3200-9 MMO Nm 


: 
| 
: 
! 
| 
: 
: 
3 


MNS = MNOONOMNOI SS T"OOMNOMNOS OM NOMUAIMMW™ OOWOO"ONOVCOM 
CSOOOSSSOSSSOSOSSOSOSOSSSSSSSOSSOSOSCSSOSSSSSSooooooooooooooooooo 


OOONOF O—-DUVINO—--DONOF £SONCOF ONY 


DODO OOOO INIA AA MINIS NANI) 


So 
& 


CVT_QUAD =peses 


oooo SOQOOCOCOOOOOSOOOSOOSOSSSOSOSOSOOSOSOSOOSOSOOSOOOOOOOOOOOOOOOOOOOO 


So 

oS 
ooo 
OoNo 
Seow 
Ssss 
vruoo 


on 


LINE 
rH LIBSSET. CURSOR 
0,REGIS,11$ 


SSWRITE STRING 
PUT 
ASSWRITELN2 


° E 
PASSEY OUTPUT 
PA 
Pas 

INE 
TOSSET CURSOR 
COL_ONE 
WER_LINE 
: B¢ ,LIBSERASE_ PAGE 


#0,FULL_PROMPT, 16$ 
#0, TEMPFULL_PROMPT, .+3 


#0, TEMP. FULL_PROMPT, 18$ 
#1 ,LIBSWAIT 
#0. REGIS,20$ 
si 
PASSFY OUTP 

3 PASSURITE STRING 
Passe TPU 
AB ASSORITELNE 
to pone 
Hei LTBSERASE_PAGE 
432 
PASSFY 60 OUTPUT 

3 PASSURLTE CHAR 
PASSE 

A SOM TELNE 

fo ONE 


LINE_O 
Wee CTBSSET_CURSOR 
27$ 


#31 
#1,QUERY 
27§ 


“M<> 
#8,SP 
a4(R12) LONG? 


] 
| 


| 
8c 19:38:55 Di SkSumsmaSten:EéDr-skcJeDFUTIL.pas;1 159)" 


; 0698 


; 0702 


; O712 


; 0759 


v0 


| 
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= wuvIo oO ooo oOo 2 oo 909 9 YO oO 
aw —-NOow @ o ooo coo So coo oo cS SO oS 
c ooouw. c So ooo oo o& oo co Sc SO SoS 
a ooo - So ooo oo oS oo co So O&O oS 
o ooo cod So ooo sco S&S coo oc S&S O&O i=) 
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; Routine Size: 53 bytes, 


eT a mendes 


mM 4 
EDFUT 16-Sep-1984 00:51:37 VAX=11 Pascal V2.4-277 Pp 3 
FO6e000 Generated Code aa 90:3a:86 DASKSUMSMASTER  FEDF-SRCIEDFUTIL.PAS:1° 7999" 
0000v 31 O00E BRW 26$ 
000000006 Ff +H § Eg PUSHAB SHIFT : 0913) 
4 pp 0 €B PUSHL #4 
000000006 Ff F ED PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 «FB 0 F CALLS #3 PASSu WRITE_STRING 
000000006 EF  9F 000A PUSHAB ANSI. REVERSE | 
000000006 EF SF O12 PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB 010 CALLS #3 PASSURI TE _STRING 
rrrins GB SSE BURNS alte 
000000006 EF 9F 0011 PUSHAB PASSFV_O 
000000006 EF aia O3 FB a1 0 CALLS #3 PaSSuRi Te, STRING 
4 DD 0012A PUSHL 
000000006 cf 9F 001 ¢ PUSHAB PAS$FV_OUTP 
000000006 EF inoooo00e EF oF 00139 SUSHAB ails sits 
000000006 EF 01 FB 001 F CALLS t PASSURITELNZ 
00v00000000G_ EF 00 a aaige BBC #0: A0TO. TUNE ,24$ ; 0917 
00 DD 0015 PUSHL #0 ? 
00 DD 00152 PUSHL #0 
00B3801C 8F DD 00154 PUSHL #11763740 
000000006 _ EF 04 FB OO15A CALLS #4,LIBS$STOP 
sooosrso HY a BREE aus Bar Hs 02s 
000000006 EF 01 FB 00169 CALLS #1,LIBSWAIT : 
Brie bee 
00 DD 00174 PUSHL #0 
00838048 8F DD 00176 PUSHL #11763787 
000000006 _ EF 04 FB 00176 a CALLS #4, LIBSSIGNAL an 
; Routine Size: 388 bytes, Routine Base: SCODE + 004F6 
00000 PARSE_INPUT: : 0979 
001¢ 00000 .WORD  “M<R2,R3,R4> 
5E 08 C2 9500¢ SUBL2 #8,SP 
3¢ 04 BC DO 0000 MOVL 4(R12) ,KEY_TABLE 
5 08 BC 00 90009 MOVL § @8(R12),STATE_ TABLE 
54 0¢ BC 90 0000D MOVE A A 
5c 10 BC p0 901] MOVL §@16(R12) .DEFAULT VALUE 
000000006 EF 000000006 FF D 00015 MOVO PUT_DESC : 0991 
00v00000000G_ ‘EF eal 0 E! 00 0 BBC aK 8 ing, it i t$ : 0996 
Ov 12 00 BNEG 
00v Op 1g 09 " BLBC SEFA ULT_OK,4$ | 
1F 000000006 4 b} 0035 CHPL QTAB AB-OFFSET, #31 
00v00000000G_ EF 0 €1 0003C 4$: BBC r) “A UTO_TUNE ,8$ 
03 00000000G_ EF a 0 i 4 5$: BBC ' gh UTO“TUNE,.+3 3 1012 
000000006 EF 9F F PUSHAB CRLF : 1016 
6D pp 055 PUSHL #2 
000000006 EF 9F 00057 PUSHAB PASSFV_OUTPUT 


1380 Cah as Pees dwSARS PERM Feber Saczeprurie.pas:1°789)°” 


EDFUT 1 m 
CALLS, #3 ,PASSURITE STRING | 
| 


v04-0 Generated Code 


mm 
eos 
0wv 


Worse 


000000006 EF 03 FB 0005D 
000000006 EF  9F 00064 PUSHAB PASSFV_OUTPUT 
000000006 EF 1 FB 0 A CALLS #1 HH M SOUT TELN2 
33334033 BF ODF 1 PUSHAF #* : 1017 
000000006 EF i f FB 0 v0 CALLS #1,LIBSWAIT 
00v00000000G_ EF § £0 th 8$: BBS #48, PASSFV_INPUT,9$ : 1027 
000000006 EF 9F 089 PUSHAB PASS$FV_INPOT 
000000006 _ EF 1 re O8F CALLS #1 PASS OOK _AHEAD 
00v00000000G_ EF 1 : 0096 9$: BBS #49, PAS sry gINPuT. 11$ 
000000006 EF 9F 0009E PUSHAB PAS$FV : 1031 
000000006 EF 1 FB OOA4 CALLS vi Sea shMeet 
0 DD O00AB PUSHL : 1032 
0 DD OOOAD PUSHL 4 
DD OOOAF PUSHL 
00838048 8F DD 000B1 PUSHL #11763787 
000090006 EF 4 FB 00087 CALLS #4 L 1BSSIGNAL 
QOOOOOOFF 8F DD OOOBE 11$:  PUSHL #25 : 1036 
000000006 EF  9F 000C4 PUSHAB PAS$FV_INPUT 
000000006 EF 9F OOOCA PUSHAB INPUT STRING 
000000006: EF 03 FB 00000 CALLS #3 PASSREAD STRING 
000000006 EF 9F 90007 PUSHAB PASSF 
000000006 EF 01 FB 000DD CALLS #1 “BASSREADLN2 
000000006 EF  9F O00E4 PUSHAB CRLF : 1037 
02 DD OOOEA PUSHL #2 
000000006 EF 9F QOdEC PUSHAB PASSFV_O 
000000006 EF 03 FB OOOF CALLS #3 SASSORITE. STRING 
000000006 EF 9F 000F9 PUSHAB PASS$FV_OUTPUT 
000000006 EF 01 FB OOOFF CALLS #1 PASSuRITELNZ 
F8 AD O10EOOFF 8F D0 00106 MOVL  #17694975,-8(FP) : 1038 
FC AD 000000006 EF  9€ O010E MOVAB INPUT otaine. PE CEP) 
F8 AD OF 00116 PUSHAB EPS 
000000006 EF 9F 00119 PUSHAB INPUT DESC 
000000006 EF 02 FB OO11F CALLS #2,STRSTRIM 
000000006 EF 9F 00126 PUSHAB INPUT_DESC : 1039 
000000006 EF 9F 001 C PUSHAB INPU 
000000006 EF 02 FB 00132 CALLS "2, »STRSU 
00v00000000G_ EF 00 €1 00139 12$: BBC SOURNAL. APRABLED. 17$ : 1047 
000000006 EF 85 00141 TSTW  INPUT_DESC™ + 1049 
00v 18 00147 BLEQU 15 
7E 000000006 EF  3C 00149 MOVZWL INPUT_DESC,-(SP) : 1051 
00 dD 00150 PUSHL #0 
50 000000046 EF D0 0132 OVL _ INPUT_DESC+4,R0 
60 9F 001 PUSHAB (RO) 
900000FF F DD 00158 PUSHL #2 he 
00000006 FE 9F 00161 PUSHAB JOURNA L_FILE | 
000000006 EF 5 FB 00167 CALLS # PASSORITE _STRING 
000000006 FF OF OiGE PUSHAB JOURNAL FILE~ 
000000006 EF 1 FB 00174 CALLS #1 PASSORI TELNZ 
0O0v 11 00178 BRB 16$ 
000000006 FF OF 0170 15$: | PUSHAB JOURNAL FILE : 1058 
000000006 EF 1 FB ot Boer CALLS #1,PASSQRITELN2 
000000006 a % ; A 198: IST NPUT_DESC : 1063 | 
00v et 199 BLBC  DEFAULT_OK,20$ > 1065 
000000006 EF C DO 0019 MOVL DEFAULT VALUE, INPUT_VALUE > 1067 
| 


5 
16-Sep-1984 51:37 VAX=-11 Pascal V2.4-277 P jl 
Generated Code b-se0-1984 aes Pee nGARe eV FEbr ee cseprurm..pasen 800" 
0000v 31 0019¢ BRW 28$ 
Ra Bie | 107 
OD 1h} PUSHL # 
00838040 8F DD OO1A PUSHL #11763 
000000006 EF 4 FB 18 CALLS a LIBSSIGNAL 
O000CG EF 00066 EF pO 001B4 228: OV NPUT_DESC+4,PARAM_BLOCK+12 9 
titdiitd EF titdaitdts F Re 1BF MOVIWL INPUT"DESE PARAM BLOCK SO ; 1985 
ea dee 
000000006 EF oF Ice PUSHAB PARAM™BLOCK 
ee Ee PRR UE Rutten 
§ 09 G EF 90000206 EF D ibe MOVL § PARAM_BLOCK+32, INPUT_VALUE : 1093 
0000006 FF O01CG EF D0 1€0 MOVL § PARAM~BLOCK+28, INPUT-NUMBER + 1094 
Ov00000000G EF E Ore BLBS _——ISTATOS, + 1099 
00v00000006G EF a Our BBC #0, PARAM _BLOCK+6,25$ : 1103 
DD 09 PUSHL # : 
0 oD 6 0B PUSHL #0 
00838028 8F DD op PUSHL #11763752 
000000006 EF Sy FB 00215 CALLS #4, 1B8SIGNAL | 
0 pp OOgic 258: PusM. 0 : 1109! 
09 DD 00 PUSHL #0 
00838030 8F DD 00 PUSHL #11763760 
000000006 EF 04 FB 00 CALLS #4,LIBSSIGNAL 
04 0022F 28$: RET ; 1115 
; Routine Size: 560 bytes, Routine Base: SCODE + 0067A 
99000 NUMBER_ INPUT: : 1161 
000 900 .WORD “M<R2,R3> 
5 08 cs 00 ; SUBL2 
39 08 8C 90 0000 MOVE § @8(R12),DEFAULT_OK 
& 0c BC 00 00009 MOVL a12(R125,DEFAULT VALUE 
00000006 EF 000000006 FF D 0000D MOVO NY L_STRING, INPUT_DES : 1172 
00v00000000G_ EF seieausal 0 E| a2 BBC tt pTAKg DEFAULTS. 38 : 1177 
Vv iF 6 BNEQ 
00v 6 E8 00028 BLBS § DEFAULT_OK,4$ 
99v900000006 EF £1 9 : 3$: BBC #0. AUTO-TUNE 7S 
00G EF o0eey i ; 4s: BBC #0 -AUTOTUNE, . +3 : 1191 
000000006 a F 80 t PUSHAB CRLF > 1195 
000000006 ai oF 0046 PUSHAB PASS$FV_OUTPUT 
000000006 3 «FB CALLS #3,PASSWRITE STRING 
000000006 EF  9F 33 PUSHAB PASSFV OUTPUT | 
000000006 EF 1 FB CALLS #1,PASSWRITELN2 
33334033 BF ODF 0 PUSHAF #*FO, : 1196 | 
000000006 EF “ I FB 6 CALLS " LIBSWAIT 
00v000000006_ EF 8 £0 " 7$: BBS #48, PASSFV_INPUT,8$ : 1206 | 
000000006 EF  9F 0007 PUSHAB PAS$FV_INPOT 


Generated 


oovd000000 


000000006 EF 


000000006 


000000006 
000000006 


000000006 

000000006 
F8 
FC 


000000006 
000000006 


000000146 
4 6456 B84 
00v000000006 


000000006 
000000006 


000000006 


04 


000000006 


Code 


000000006 


00838048 
OOOOOF F 
BB990B006 
000000006 
000000006 
000000006 
000000006 
10EOOFF 
00 oopg6 
000000006 


00000006 
00000006 


00000046 
00000006 


000000006 
000000006 
000000046 


QOOOOFF 
00000006 


000000006 


000000006 
000000006 


' 00838040 


~ 
co 
cad 


COOooOooCooooo 
SORRROSCCHODOOSS SOO 


ODMOMOMMOMMOM S MOOMOMOMOMOMMMBODOOOOMWO 
NUIT OS OTT NO OD WITT COND VIN OO" DW OWS MOWOFCOMOPWOYVT WOO 


OF MOO OMNI 178 8 FIFO FO FO FO FF NF Ft A LA oo MOOS 


MIDE & ANI O00 


< 


< 


<a 


—"90000 “OM $B 7 O- NO7TNOT OT TOW"DMwds "OO "OOVOIT"ONOVCO"O"OOVUNOVVOZONMN 
—DO9 99 SOONG 8 3B MDS MOC OWN OOD VW MOO "W "OW "DW "lCMlVCVTVlC@ "ow 
SOOOCOOOOOCOOOOOOCOOCOCOSOOOOOOOOOOOOOCOCOOOCOOCOOOOOOOOOOOOOOOOOOOO 
SOOOCOCOCOCOCOCOCOSOSOSOSOSOOCOSOCOCOOOCOOCO OOOO O OOOO OOOO OOOO OOOO OOOO OOOO OO 


a a tS Ss ss 2 es ss a ns ts 


Orrr> FS OOOCOOOOO INOS 


Sm 
WOOP HLSMOM S NIM DWNMOOWOM O&O 


; 


bc 19:58:55 — DiSksunsmasten’t 


#1 ,PASSLOOK_AHEAD 
#49, PASSFV_ INPUT, 10$ 
PAS$FV_INPOT 

#1  PASSRESET2 

# 

#11763787 

Th 5 1BSS1GNAL 

#25 

PASSFV_INPUT 

INPUT STRING 
#3,PASSREAD_STRING 
PASSFV_INPUT 


#1, PASSREADLN2 

CRLF : 1216 
PASSFV_OUTPUT 
#3, PASSWRITE_STRING 

PASSFV_OUTPUT 

#1 ,PASSWRITELN2 

#17694975, -8 (FP) : 1217 
INPUT_ STRING, =4(FP) 

-8(FPY 

INPUT_DESC 

#2,STRSTRIM 

INPUT _DESC ; 1218 | 
INPUT DESC 
#2, STRSUPCASE 
INPUT_DESC+4,PARAM_BLOCK+20 : 1219 
INPUT" DESC, PARAM BCOCK+16 : 1220 
#0, JOORNAL_ENABLED, 16$ : 1228 
INBUT DESC : 1230 
INPUT DESC ,~(SP) : 1232 
INPUT_DESC+4,RO 

(RO) 

255 

J URNAL FILE 
#5 ,PASSQRITE_STRING 

JOURNAL FILE 
#1 ,PASSORITELNZ 
JOURNAL FILE : 1239. 
#1, PASSORITELN2 

INPUT _DESC : 1244 | 
DEF AULT_OK,19$ ; 1246, 
p PAULT_VALUE ,a4 (R12) 3 1248 | 
’ 5 1254 | 
’ 
r 
#11763776 

#4, LIBSSIGNAL 

24$ 
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AC 0D 00185 218 PUSHL 4(R12) : 1265! 
, 000000006 f 8? 18a PUSHAB sole pest - | 
990900006 EF 3 F 185 CALLS He CVT_TILL 
G 08 1C ao STATUS 
6000000006 F cs 1¢ BLBS H faTuS,24$ ; 1270 
; Ree et — 
gg manos fea BS ALTE a | 
090000006 EF BC 09 166 248 MOVL ac hig) INPUT VALUE : 1280 
000006 EF 7 BC p TEE MOVL  @4(R12).IN : 1381 
4 OO1F RET + 1283 
; Routine Size: 503 bytes, Routine Base: SCODE + OCGBAA 
0 MAKE_SCRATCH: : 1329) 
o03¢ .WORD “M<R2,R3,R4,R5> 
SE £0 AE OE MOVAB =64(SP) = 
nag 0000004 f Dp 006 PUSHL fie, : 1336 
SSSSSRRE Ef SPR RRR GAS DEERE 
CO AD 000000006 cf OO1A MOVL ee DEF SCRATCH : 1341 
CO 8D 000000006 EF 004 F ; 0022 MOVC3 ie LINE "OpJecT. TEMPLATE. @-64 (FP) 
4 0002D RET + 1343 
3; Routine Size: 46 bytes, Routine Base: SCODE + OOAA! 
9000 CURRENT_GT_TEST: : 1390 
003¢ By -WORD “M<R2,R3,R4,R5> 
SE AE 9E 0000 HOVAB -64(SP), SP 
CO AD 04 eC 004 RE 5 006 MOVC #6 a4(R12), TEST 
C iD : 05 MOVE  @8(R12), EXACT COMPARISON 
6 4 0001 CLRB CURRENT GT TEST : 1397 
51 000000006 f 13 $n or ADDLS 25 DEF “CURRENT .R1 + 1402 
1 00000009 GEF41 3 IF MOVAB PRI »SEQCRII.R1 
8386 Bel 9 8 MOV PAT SEQCRSI,R 
D MOVL DEF CURRENT .R 
$ 4 4 BLBE He PARISON, 16$ 
oY 51 900c1 cHPG 033) 5 1406 
ov | 4 BLEQU 3$ | 
50 98 5 MOVB #1,CURRENT_GT_TEST : 1410 | 
DA AD 3 p 3$: CMPL  R3,TEST+26 + 1412 
Ov 15 D BLEQ 63 
62 ea. F CMPB  —s-« (R11) , (2) 
v1 : BNEQ 6$ 
50 9 MOVB oft «CURRENT _ GT_TEST ; 1418 | 
DA AD p 7 6$: CMPL R3.TEST+26~ > 1420 
v é B BNEG 108 | 
62 6 9 CMPB ss (R11), (R2) 
Ov 1 BNEQ 10$ | 
5C 000000006 EF OD MOVL FF CURRENT R12 
DF AD F ac p CMPL 5 (Ri2), TEST +3 
OOv 15 é BLE 0$ 
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CMPB R1), (R2) 
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p CMPL ; CRIS) fests 
BNE $ 
MOVB #1,CURRENT_LT_TEST 
} BRB é § 
1 16$: CMPB R1), (R2) 
BGEQU 18$ 
VB  #1,CURRENT_LT_TEST 
b D0A7 18S CMPL 3. TEST#26 
§ BGEG 228 
9 CMPBs« (R11), (R2) 
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ESTs 1,31(R1 

M CURRENT,R 
si ttt 
1$ 

cu 
aA 
1$ 


~ 


SON, 13$ 
2. 

2) 

12 

2) 


F 
5 
$ 
f RRENT R12 
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6$: 
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F_CURRENT DEF _HEAD 

~$CRATCH. DEF HEAD 
CURRENT .R 

0) DEF _PRED 

séRATCH,RO 
URRENT.1(RO) 

RATCH.RO 


CURRENT , DEF HEAD 


CRATCH, DEF _HEAD 
URRENT , DEF ~TAIL 
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) 
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17 
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< 


<= 


4 4'4'4'4'4" 
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EF _CURRENT,RO 
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a} .LJBSDATE_TIME 
RO I 
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1 0 0006C MOVLso#t] : 
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D6 06 gp 4$: INCL RO 
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“ee 20095 6$ Pt Saas ae 2118 
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G EF Pa. CALLS #1,PRSS$DISPOSE2 
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6 EF 00 2006 EF D MOVL DEF “SCRATCH. DEF “HEAD : 21 
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EF 1 " PASSDis POSE? 
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0 00000 96 EF rote : 2205 
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F_CURRENT DEF _TAIL 
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URRENT , DEF HEAD 
URRENT ,RO 
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we 
§ 


$FREE1_DX 
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ASS$DISPOSE2 

fF Succ 

DEF _SUCC, DEF _CURRENT 

26$ 

EF _PRED 

DEF PRED DEF _CURRENT 

#0,NEW_IDENT_LINE 
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$M AOR NONMMM Ummm UM Am Am amor 


mo BO BON O08] “C00 -07000 -0 -9Ou"0 - 0 9 


<REARS A> 
acer ¢) -WHICHPRIMARY 


URRENT ,RO 
ie ) WHI CHPRINUM 


DEF CURRENT ,RO 
sR “ad 


OFF URRENT ,RO 
(RO) ,WHICHPRIMARY 


93) 
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: 830 
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50 000000806 
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i Be 
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04 0008E 
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4 00:51:37 VAKX-11 Pascal V2.4-277 Page 94. 
ety 7 90: 3ai85 DISKSVMSMAS TER: CEDF . SRCJEDFUTIL.PAS; 1-19) | 
BNEQ 5$ 
ss: BRIE italy : ue 
CALLS 70, DELETE. CURRENT : 5363) 
7$: CALLS 4 INCR_ CURRENT ; 3370 
8$: iste DEE CURRENT : 2376 
BLBC DOING, 15$ : 2378 
MOVL § DEF_CURRENT,RO 
mee 
MOVL EF CURRENT RO 
cHPL cr ) WHI CHPRINUM 
MOVL DEF CURRENT .RO 
CPS 5(R ) WHI CHPRIMARY 
138: MOVB #1 DONE : 2390 
15$: BLBS DONE, 17$ 
TSTL  DEF_CURRENT 
BNEG ~=sé«é1S 
17$: RET : 2394 
wmeT et ae mes 3 2441 
HOVL DEF HEAD. DEF CURRENT ; 448 
2$: CALLS #0,DELETE_CURRENT + 2456 
CMPL DEF_HEAD,DEF_TAIL 
Ist DEF _CURRENT : 2460 
CALLS #0,DELETE_CURRENT : 2462 
6$: RET + 2466 
INSERT_IN ORDER: aan : 2516 | 
MOVL @4(R12),COLLISION_ACTION 
MOVL DEF _SCRATCH,RO : 2528 | 
meg” 
MOVL EF SCRATCH,RO 
CAPE 3 (RO). #15 
ROVE DEF ASCRATCH,RO > 2534 
3$: OVE DEF SCRATCH. RO : 2536 
HOVE DEF ASCRATCH,RO > 2537 
CLRB §BACKUP_WORKED 3 42 
TSTL  DEF_CURRENT 44 
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bef CURRENT ,RO 
(RO) 
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#0,DECR_CURRENT 
¥0, INCR_CURRENT 
DEF_SCRATCH,RO 
#2. CURRENT GT_TEST 
RO.R 


ae 
SG -LMMRENT £6, TEST 
R5,RO 


R 
DEF CURRENT ,R1 
1(RT) 


9$ 

R3 

RO,R3 

R3,6$ 

DEF SCRATCH,RO 


Og oS UMRENT _£0_ TEST 
RO,RS 


DEF -SCRATCH,RO 
#2, CURRENT_LT_TEST 
DEF _CURRENT,R4 

q) 
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BACKUP_WORKED,21$ 


DEF HEAD. DEF _CURRENT 


#0, INCR_CURRENT 
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= SWWMVUMMWw be 
OA@Mecanvnw+w+wa 2 
AMOQ © *& eer * ~ 


F CURRENT 


MNUM 


oo 
La) 
+ 


3 
CURRENT _EQ 
FOUND_IT 


ss 
> 4 SSwww0 fw wo 
8BBBBBO4A40M%MO40060028rF282 


< 
4 
( 
( 
J 
I 
I 
C 
C 
F 
U 
Ss 
F 
ST 


OBJECT: 


FIND_ 


PNPSPNT Taal] 
SSSSSSSSSSSSSSSS9SSSSS 


VWOOOCOOOOCSCOOSOs TNMs DO 

BOSS AS SAR OAPMOOKO Oe OOune 

- > 
WOVOVQVVO KUM UM ua Ou ONO 
ZOADOMOMOMMMNMMwWNMNWOwO sow 


Oo o 
Owouvuoy, =] o -oO 
Vvooeerer So oe ow 

i=) [=] 

oS =] 

So oS 

oS So 

So oS 

So So 
WOrTUMLOAOOGA0Oa8u ww 
MANNA i i i i iw Sel 

oO 

Ooo fwuO @ 
2a a0a0ao ~» 

i=] (=) 

i=] Oo 

oS 

So 

=] 

So 


st 


; Routine Size: 123 bytes, 


; Routine Size: 62 bytes, 


00v000000006 
000000006 
000000006 
000000006 
000000006 


; Routine Size: 61 bytes, 


OAA1 


00000000G_ éF 18 
00v000000006 


03 000000006 


00v000000006 


00v000000006 


50 


Routine Base: 


Routine Base: 


62 
EF 
62 


Generated Code 
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o— 


000000006 


OM NUOOOOVvIo™n 


MOmUImovimoe >} co 


Routine Base: SCODE + 0131D 


SCODE + 0139 


000000006 


000000006 
ey 


000000006 


oe oS 

o oo 
OOOOH OMODOOOPMOAmnao 
MO—QMUMNOWOWO M0 "O— 


bs 
oF 3 
oF 036 
F 
99 E 
He 
A Se 
E8 6C 
p) Bee 
12 00075 
90 00077 
04 0007A 


CSooOoQoooooo SOOooQooOooooooo 


SCODE + 01306 


0000 00000 
EO 00002 
DO QO00A 
DO 00015 
DO 00020 
DO 00028 
90 00036 
04 00030 
8 
00000 
0000 00000 
E1 00002 
DO O000A 
DO 00015 
DO 00020 
DO Sooke 
94 00036 
04 0003C 
0004 00000 
D0 its 
FB 00005 
DO QOO0A 
Hien 
His 
91 8 
12 00020 
V 31 Q002F 
5 00352 
Vv 31 88 A 
DO 00050 
f} 044 
& 8 C 
v 11 
90 8 5 
5 5 
0 00058 


3 

Sep-19 7 ——‘VAX=11 Pascal 

ae et a Se 
PUSHAB 
PUSHAB T ST 
ALLS »CURRENT_GT_TEST 
OVB “PA 1 rs 
BLBS Doin 
CALLS #9. INCR hE yaREnT 

4$: BLBS 
BLBS NOt "58 
TSTL ber CURRENT 
BNE 

8$ MOVB FIND_OBJECT,RO 
RET 
.ENTRY POINT_AT_DEFINITION, *M<> 
BBS #0,POINTING AT DEFINITION, 2$ 
MOVL DEF _HEAD,DEF_ANL_HEAD 
MOVL § DEF-TAIL.DEF-ANL-TAIL 
MOVL § DEFSAVE_HEAD,DEF_HEAD 
MOVL DEF “SAVE~TAIL.DEF ~TAIL 

~ Move #1 ,POINTING_AT_DEFINITION 


POINT_AT ~ANALYSIS: 
WORD “M<> 


BBC #0 POINTING AT_DEFINITION, 2$ 
DEF _HEAD,DEF_SAVE_HEAD 


MOVL DEFT TAIL DEF SAVE TAIL 
MOVL § DEFAN HEAD; EF _REA 
MOVL DEF ~ANL TAIL DEF “TAIL 
CLRB —- POINTING_AT_DEFINITION 

2$ RET 
.ENTRY EDFSLINE PARSED @M<R2> 
MOVL #1 .EDFSLINE RSED 
CALLS #0,MAKE | sth arch 
MOVL FD BL BLO 
INSV (ROY Ai TEMP FDL3S$TYPE 
BBC “5,1 TERE S$TYPE,2$ 
MOVL  FDL_BL otk 
CMPBSs«B(RO) 
BNEQ ts 
BRW is 

2$ BBC 4 TEMP_FDL3STYPE,.+3 
MOVL SCRATCH,R 
BBC TEMP. EN gee ee. 6$ 
CLRB 
BRB 

$$ MOVB Bera 

$ BBC #9; TEMP_FDL3STYPE,9$ 
MOVB = #2. (R2) 


“iN 


Sette Fete ShcJEDFUTIL-PAS:I°TE9) 


: 2716 


; g7i8 


720 


2731 


owe 


<m 


i off off off off off off off off off off ofl ol IR ORORIRIARIAIAIAIAIAIAIAIAIAIAIAIAIAIAIIIAIAIIIAIAIAIAIAIAIAIAIAIAIAIAPIAUARIAIPIAIAIA) 
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0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


wr er ge ak ee 


4 
Ib-5e -1984 51:37 VAX-11 Pascal V2.4-277 Pa 98 
Generated Code Hath 1 90 3aies DISKSVMSMASTER: LEDF .SRCJEDFUTIL.PAS;1 £9) 
50 000000006 EF SE 9S: MOVL FDL_BLOCK,RO : 2970 
19 A 03 AO : vB BROS TOS Cho> . 
50 000000006 EF p A MOVL FDL BLOCK R 3 2971 
IF A 14 «OA 1 MOVE  20(RO),30(R2) 
gov G EF 0 76 BBS #0, TEMP_FDLSSTYPE+1,11$ 3 2976 
V 96 EF 7E BBC #9, TEMP-FDL3STYPE,13$ 
G gf 990000006 EF p 86 11$:  MOVQ = NULL_STRING, TEMP_DESCRIPTOR : 2980 
F OVL fF OCK,R + 2981 
0 000000006 E 6 6 
‘ AO 9F 00098 PUSHAB 108TRO) 
51 000000006 EF po OVL FOL BLOCK .R1 
4Ci CF 2 rp A CALLS #3 -CVt yap DESC 
onoobobos EF 6s 3 oF ooet ROVE, BY, SGAPDESCRIPTOR 2985 
000000006 EF 9F 008% PUSHAB TEMP DESCRIPTOR : 
0000000G_ EF é ‘a: BA CALLS #2,LIBS$SCOPY_DxDx 
00v000000006 FF a C1 13$: BBC # TEMP FDL3STYPE,15$ : 2992 
ae st: ee a a 
: ‘a L YPE, 
00v00000000G EF 0 0 OOOCF 158 BBS #5, TEMP_FDL3STYPE,17$ 
ne at ee a 
00v000000006 EF 05 £0 9900 17$: BBS #5, TEMP_FDL3STYPE,21$ 
35 EOE Ce bls wie ne 
V EC BBC RO,SEC_TYPE,21 
00vO0000000G EF 8 1 000 0 4 
F 7D OOOF : MOV@  NULL_STRING, TEMP_DESCRIPTOR : 3008 
000000006 EF 000000006 €& OOF4 19$ T 3 
0 000000006 EF D0 OOOFF MOVL FDL BLOCK.RO : 3009 
64 AO 9F 00106 PUSHAB 100TRO) 
ptmommnme' ee TA Be PUSHAR 9BKRID NR 
O4c1 CF 98 FB 113 CALLS #2,CVT_QUAD_DESC 
000000006 EF 7D 0011 MOVa = R TEMP_DESCRIPTOR 
11. A2 = 9F OO11F PUSHAB 17(Ro) : 3013 
000000006 ai 9F 001 3 PUSHAB TEMP DESCRIPTOR 
000000006 EF : FB 001 CALLS @# LIBSSCOPY_DXDx 
0 19 A2 9A OO12F 21$:  MOVZBL 25(R2),RO : 3020 
7 gy Wee garb Sa 
OOVFFFFEB31 EF 8 E1 001 § ¢ RO,C.AAH, 23$ 
0 000000006 EF 00 140 MOVL FDL BLOCK RO : 3022 
1A A 0c AQ b0 147 MOVL ec ),26(R2) 
1A OA 4 0O14E 238 CLRL (R2) : 3026 
00000098 | ar . ne mA i a8 ae $BR3) no : 3088 
v1 15¢ BGEQU 26$ 
OOVF FF FEBOF EF 09 ef 4 : BBC RO,C.AAL,26$ 
0 000000096 EF DO 0016 MOVL FDL BLO K,RO : 3030 
1F oA 1 A : D0 gp MOVL 4c >, 31¢R2) 
87 «BF 1€ A2 91 ie 26$ CMPB (R2) ,#=121 : 3037 
v4 179 BNEQ $ 
1F A D0 00178 MOVL  #7,31(R2) : 3039 
Ov ’ 17F BRB 7 
1F A204 O18! 288: CLRL 1(R2) : 3043 
| 


—— 


SE OOOO a 
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| Tee 7 =. oOo « ss os: 
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~~~ U~Ra~ wo ad AA I A 
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oe ee S2PS233 MWMNMNMNNAMAMAMNMNMNAMAMNMNKHMMKAMNAMNAMVAMVHMHNNAVWMMWMMVWMWHVHVWHMVWHVHMNNMNHMWNWNNWW JIWMM 
SOo—- Bwk Zts0OOeTOTOAOOOAAHAAAHAOAAAAAAAAAAAAABAGBAAAABAABBABABAaAAGAaazO<K<aAaS 
WMwYOMvEEMEw 2-2 es es ee eevee e*eeeeeeee *eeeeeeeeeeeeeeeeeee ee @ Mzw-s--s. 
wv 
coco 
oo 
irom Co cf 
N ~~ w 
La) m La) 
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Generated Code ig-Sep-1984 9953385 BTS oUmsMASTER\ fépr -sRcJEDFUTIL.PAS:1° 189) 


PAAAAOAAA AAAS AAAOAAAO 


$ 
35$: MOVL 731 ,35(R2) : 3092 
36$: MOVL #30,35(R2) : 3093 
37$: MOVL 


38$: BRwW 
40$: MOVL 


23. A2 
23. A2 
23. A2 


@ 
< 
oa 
Ww 
w 
— 
DD 
~™ 
~ 
. 
3 


nO—-—0O—-0-"O— 
bead 
PRPOROP 


QOTUWOWOwWo— 


000v 
50 sooseogee EF proce «RO ; 3104 
00 4 A R 


06 »,#0,46 


23. =A 0 41$: MOVL 
42%: MOVL 
43$: MOVL 


44%: MOVL 


<= «<cccccce 


< 


,35(R2) : 3107 | 


J 

— 

an” 

v 

on 
PBL ele BLL LLL EIIMNOO o 
Mrornronroun 


L 

( 

$ 
1$ 

: 
5 
¢3 
$ 
8 
18, 35002) 3 3106 | 
1 
9 
1 
9 
1 
9$ 


VO4~000 Generated Code ii gep-1984 $3138: # DI SKSVMSMASTER:CEDF <SRCJEDFUTIL.PAS:1 159). 


23. a2 BO B0ZK0 458: BOvL ,35(R2) : 3110) 
v Ab BRB 43 
23 a2 F p 468: ROVE #14,35(R2) : 3111 
23 a2 a p 47%: ROVE #13 .35(R2) ; 3112) 
48$: 
000000006 fr’ pO a3: — LOCK R 3122. 
07 80 % A : CF ; CASEL pat Ag . | 
V -DISPL ; 
V SDISPL 51 | 
v DISPL $$ | 
V “DISPL 52$ 
v DISPL 54$ 
v “DISPL 57$ 
a aan 
23 A2 00 51$ MOVL  #35,35(R2) : 3124) 
v1 BRB ee 
232 00 528 MOVL #37,35(R2) : 3125 
Ov BRB 62$° 
23 a2 DO 53$ MOVL  #39,35(R2) : 3126 
Ov 11 BRB 62$ 
23 a2 6 00 54$:  MOVL  #40,35(R2) ; 3127 
v 11 BRB 6¢s 
23 a2 DO 55$:  MOVL #34,35(R2) : 3128 
v 11 BRB 62s 
23 a2 4 00 56$: MOVL ’ 6,35(R2) : 3129 
23 A2 6 p0 57$: MOVL @# $i ssa : 3130 
Ov BRB 6 
23 1 00 58$:  MOVL 35(R2) : 3131 
Ov BRB é $ 
Ov 11 59$: BRB 
50 000000006 EF oD 61$:  MOVL FOL abt OS KR : 3141 
23 «OA 4 & OD MOVL S2¢ 5(R2) 
oe i en ae > ae RB RLOCK AD as 
; 000000006 EF D 63$ MOVL FDL _BLOCK,R : 3152 
v C A BLBC oUF ) g5$ 
2B OA 0 é nove £ g' (R2) > 3154 
iM My 658: CLRB oot R2) : 3158 | 
5 0000000 EF OD 66$ MOVL FDL _BLOCK.R : 3160. 
“ $ 0000009 G . ie p MOVE hg sete 3161 
” $ 0000009 G er D MOVE ZERO) UR ’ 3162 | 
: ft » Be feet 318 | 
” $ | ep D BOVE BDCRD) 36 ' ; 3164 | 
3c .C«A A ; ROVE Bac + B06R ) , | 
3 1€ A A MOV ZBL O(R )’R : 3172 | 
00000098 + 8F 50 1 CMPL «RO, #152 | 


Wisi $ 4 4 4 4-4 4 44 444 4343434344443 4434 4 


v1 


ef ; 
Sl 


OOVFFFFEBEC FE 


q GEQU 
1 67%: é 
9 


000000006 EF 000000006 
DED CF 


COWDOMOOuO' YP > 
<= a 
nO TNO — Orn 0 Onn 


00000001 
1189 = CF 


50 5¢ 


; Routine Size: 985 bytes, Routine Base: SCODE + 01413 


67$ 
R »C.AAJ 


71$ 
ANALYSIS _ONLY,69S 
2 (Re) AR 
RO, #16 
RO,C.AAK,71$ 
r) ANALYSIS_ONLY,75$ 
25(R2),R 
4} C.AAL,75$ 
pie 
DEF TAIL, DEF _CURRENT 
#0, INSERT_AFTER_CURRENT 
is 
#1, INSERT_IN_ORDER 


EDF SLINE_PARSED,RO 


F 6 
Fee 008 Generated Code Mergeen 188s Ria gs | NTeeb sake Pha Peor “saczeprurin..pas:1° Veoh 


| 


} 
| 
| 
} 


3181 


3186 


; 3192 


3196 


4S 


COOCOSOOSOSOCOSOOSOOOSOSOOOSOSOOSOOOSSSSSOSOSOOSOOOOCOOOOOOOOOOOOOOOOOOOOoO 


mt RLALALALALALALAAALALAA AAPA UU 


Pascal Compilation Statistics if-se0-4 3h 9: 33: Hi Siecdunshasten tor -sacteorutin.pass2 f89y- v0 


eo 
COMMAND QUALIFIERS 
eT ee Re ee MSRCS:EDFUTIL 
fo ein gs a ake ce 56 7ens . sNOOVERF LOW ,NOPOINTERS , NOSUBRANGE ) 


falas aa pean ro 
FERE 


RROA LIMIT =90 /NOG “iloatine /MACHINE CODE /NOOLD_VERSION /OPTIMIZE /NOSTANDARD /WARNINGS 


COMPILER INTERNAL TIMING 
m) 4 PU Time Ele 6 


1 701. 
Analy af :00. 
Profit Anal 3 :01. 
Context Anal ys s fs ° 
C Sele et 4 9 

ection S 703. 
Ss eed $37 :07. 717. 
TOTAL 2311 :52. :19. 


PAPA A AAAI 


COMPILATION STATISTICS 


CPU Time: 38-9 (3627 Lines/Minute) 
5 Lapsed Time: 719.1 
Faults 311 


Conpt lation Complete 
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VAX/VMS V4.0 CONF 
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0128 


NT CORPORATION 
D PROPRIETARY 
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